VB模拟试题

本卷共有3道大题:

VB模拟试题

一、单项选择题（50道小题，共50分） 1、Cls方法可以清除窗体或图片框中的______。（1分） A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上全部内容 2、下列各组中，两个函数功能完全相反的是______。（1分） A、Str(x)和Val(x) B、Asc(x)和Chr(x) C、LTrim(x)和RTrim(x) D、Timer(x)和Time(x) 3、能够盛放其他控件，而且是最基本的对象是______。（1分） A、窗体 B、图像 C、标签 D、文本 4、能够通过标准工具栏打开的窗口是______。（1分） A、代码窗口 B、设计器窗口 C、属性窗口 D、立即窗口 5、可以让Image图像控件自动改变大小以适应图形尺寸的属性是______。（1分） A、Autosize B、AutoRedraw C、Stretch D、Width 6、Print Format(1234.234, \的显示结果是______。（1分） A、1234.2341234.23 B、123.23400 1234.234 C、123.23400 1234.23 D、1234.2341234.234 7、与传统的程序设计语言相比较，Visual Basic最突出的特点是______。（1分） A、结构化的程序设计 B、数据处理 C、面向对象的可视化编程 D、中文支持 8、程序段 Dim x%: If x Then y = x Else y = x + 1: Print y 运行后，显示的结果是______。（1分） A、0 B、1 C、随机数 D、显示出错信息 9、以下不合法的常量是______。（1分） A、10^2 B、100 C、100.0 D、10E+01 10、下列关于窗体的Name属性的叙述，正确的是______。（1分） A、它的值在程序运行中可以重新改写 B、它是显示在窗体标题栏中的文本 C、它是指窗体的名称，在程序中用来标识一个窗体对象 D、它的值可以为空 11、一个工程文件中有多个窗体，VB运行时指定为启动窗体的是______。（1分） A、窗体 B、Form窗体 C、Form1窗体 D、第一个创建的窗体 12、在程序运行模式能够______。（1分） A、中断程序 B、添加程序 C、输入程序 D、编辑程序 13、Select Case 语句中的“表达式列表”不能是______。（1分） A、变量名的列表，例如 Case x ,y ,z B、值的列表，例如 Case \ C、To 表达式，例如 Case 1 to 10 D、Is关系表达式，例如 Case Is <8 14、运行程序：x = 2: For i = 1 To 10 Step 2: x = x + i: Next，x的值是______。（1分） A、26 B、27 C、38 D、57 15、处于设计状态时，在窗体上双击鼠标，则系统在代码窗口显示的事件过程模板是______。（1分） A、Load B、Click C、DblClick D、MouseDown 16、不属于一个工程文件（*.vbp）里的文件是______。（1分） A、*.txt文件 B、*.bas文件 C、*.cls文件 D、*.frm文件 17、窗体上有一个标签Label1和一个命名按钮Command1，当程序运行时每单击一次命令按钮，标签就向右移动一定距离。在Command1_Click()中能完成这个功能的命令为______。（1分） A、Label1.Left = 100 B、Label1.Left = Label1.Left - 100 C、Label1.Move 100 D、Label1.Move Label1.Left + 100 18、运行程序：x = 2: For i = 1 To 10 Step -2: x = x + i: Next，x的值是______。（1分） A、2 B、26 C、27 D、38 19、启动Visual Basic后，VB为用户建立的第一个窗体是______。（1分） A、Form B、Form1 C、窗体1 D、窗体 20、程序如下：k = 0: Do Until k > 10: k = k + 1: Loop的循环体执行次数是______。（1分） A、9 B、10 C、11 D、无数次 21、有一个命令：Text1= \欢迎您！\，表达方式中省略了对象的______。（1分） A、方法 B、属性名 C、对象名 D、标题 22、已知x=2, y=9, z=－4，逻辑表达式x>y OR z>x AND NOT z>y的值是______。（1分） A、True B、-1 C、0 D、False 23、下列叙述中，正确的是______。（1分） A、工程文件（.vbp）应用程序可以在任何计算机上运行 B、打开一个工程文件，系统自动装入与该工程有关的窗体文件 D、退出VB系统前要保存新创建的应用程序，只需保存工程文件（.vbp）即可 C、VB工程文件中可以没有窗体文件 24、语句Print \的输出结果为（1分） A、Int(-23.4)=-23.4 B、(-23.4)=23.4 C、Int(-23.4)=-23 D、Int(-23.4)=-24 25、窗体文件的扩展名______。（1分） A、.bas B、.vbp C、.exe D、.frm 26、InputBox函数返回值的类型为______。（1分） A、数值 B、字符串 C、变体 D、数值或字符串 27、方法Print \等级\考试\，输出的结果是______。（1分） A、等级考试 B、等级;考试 C、\等级考试\ D、\等级\考试\ 28、Single（单精度）型数据占______个字节。（1分） A、2 B、4 C、8 D、10 29、在VB中，以10为底的x的常用对数表达式是______。（1分） A、Log(X) B、Log10(X) C、Log(X) / Log(e) D、Log(X) / Log(10) 30、下列符号常量的声明中，______是不合法的。（1分） A、Const a As Single = 1.1 B、Const a As Integer = \ C、Const a As Double = Sin(1) D、Const a = \ 31、下列声明语句中，错误的是______。（1分） A、Const varl=123 B、Dim var2='ABC' C、Const y=\计算机等级考试\ D、Static var3 as Integer 32、在下列逻辑表达式中，逻辑值为\真\的是______。（1分） A、Not (1 > 2) B、Not (3 + 4 < 4 + 6) C、1 > 2 Or 2 > 3 D、2 > 1 And 3 < 2 33、以下声明语句中，错误的是______。（1分） A、Const varl=123 B、Const var2=\ C、Public const=\计算机等级考试\ D、Static var3 as Integer 34、下面表达式中，______的运算结果与其他3个不同。（1分） A、Log(Exp(-3.5)) B、Int(-3.5) + 0.5 C、-Abs(-3.5) D、Sin(30 * 3.14 / 180) 35、m、n是整数，且n>m，在以下4个语句中，能将x赋值为一个m～n之间（含m ,n）的任意整数，即满足m≥x≥n的是______。（1分） A、x = Int(Rnd * n) + m B、x = Int(Rnd * (n–m + 1)) + m C、x = Int(Rnd * m) + n D、x = Int(Rnd * (n-m)) + m 36、执行语句age = InputBox(\请输入数值\年龄输入框\，如果从键盘上输入数值20并按回车键，则下列叙述中,不正确的叙述是______。（1分）

A、变量Age的值是数值20 B、对话框标题栏中显示的是\年龄输入框\ C、对话框的默认值是38 D、对话框的提示文字为\请输入数值\ 37、执行MsgBox 123 + 123，信息框中可以出现______。（1分） A、123 + 123 B、123123 C、246 D、显示出错信息 38、设有变量声明：Dim TestDate As Date，为变量TestDate正确赋值的表达方式是______。（1分） A、TestDate = #1/1/2002# B、TestDate = #\ C、TestDate = Date(\ D、TestDate = Format(\ 39、已知下列程序段：a = 3: b = 4: Print b > a ，输出的结果是______。（1分） A、True B、False C、4>3 D、显示出错信息 40、执行程序段：a = 6: b = 8: F = Sqr(a * a + b * b): Print F，输出的结果是______。（1分） A、6 B、8 C、10 D、14 41、假设变量iVar是一个整型变量，则执行赋值语句iVar = \之后，变量iVar 的值是______。（1分） A、2 B、3 C、5 D、23 42、变量未赋值时，数值型变量的值为______。（1分） A、O B、空串\ C、Null D、没任何值 43、用户自定义数据类型时，其成员不能是______。（1分） A、定长字符串和数组 B、变长字符串和数组 C、货币型和日期型 D、变长字符串和货币型 44、程序段Print -15;: Print -16， 输出的结果是______。（1分） A、-15 -16 B、-31 C、-15-16 D、出错 45、语句T = MsgBox(\程序执行了非法操作\提示信息\的执行后，可以在对话框中显示______个按钮。（1分） A、1 B、2 C、3 D、4 46、语句X = X + 1的正确含义是______。（1分） A、变量X的值与X + 1的值相等 B、将变量X的值存到X + 1中去 C、将变量X的值加1后赋给变量X D、变量X的值为1 47、Print Format(32556, \的输出结果是______。（1分） A、3255632556 B、32556—32556 C、32556-325 D、--32556325 48、下列选项中，______不是字符串常量。（1分） A、\你好\ B、\ C、\ D、#False# 49、在下列符号常量的声明中，______是不合法的。（1分） A、Const a As Single = 2.6 B、Const a As Integer = \ C、Const a As Double = 2 * 2 D、Const a = \ 50、执行程序段：a$ = \，输出的结果是______。（1分） A、Chi B、aaa C、iii D、ina 二、填空题（7道小题，共30分） 1、* 求7!(7!=1*2*3...*6*7)的值。 Private Sub Command1_Click() Dim a As Single a = For i = 1 To 7 a = Next i Print a End Sub （4分） * i 2、* 对10个100以内的整数用冒泡法按递减顺序排序。 Private Sub Command1_Click() Dim a(10) As Integer, t As Integer Dim i As Integer, j As Integer For i = 1 To 10 a(i) = Int(Rnd * 101) Print a(i); Next i: Print For i = 1 To 9 For j = 1 To 10 - i If a(j) < a(j + 1) Then Next j Next i For i = 1 To 10 Print a( Next i: Print End Sub ); = a(j): a(j) = a(j + 1): a(j + 1) = t （4分）

3、* 随机产生 n 个两位整数，求出其中的最大值和最小值。 Private Sub Command1_Click()

Dim a(100) As Integer, n As Integer, i As Integer Dim min As Integer, max As Integer

= InputBox(vbCrLf + vbCrLf + \

Print \产生的随机数为\ Randomize For i = 1 To n

a(i) = Int(Rnd * 90) + 10 Print a(i); Next i: Print

min = a(1): max = min For i = 2 To

If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) Next i

Print \最大值为 \ Print \最小值为 \ End Sub （4分）

4、* 三个学生的四门课（政治、数学、英语、计算机）成绩（均在70分以上）随即生成存放在二维数组R（3，4）中，计算每个学生的平均成绩（存放在数组S中）和最高平均成绩。

Private Sub Form_Click()

Dim R(1 To 3, 1 To 4) As Integer Dim S(1 To 3) As Integer

Dim i%, j%, max%, k% 'k为最高成绩学生序号 For i = 1 To 3

(i) = 0

For j = 1 To 4

R(i, j) = Int(30 * Rnd + 70) Print Tab((j - 1) * 5); R(i, j);

S(i) = S(i) + R(i, j) Next j

S(i) = S(i) / 4 Print Next i max = 0 For i =

To 3

Print \学生\平均成绩:\ If max < S(i) Then max = S(i) k = i End If Next i

Print \最高平均成绩 k=\ End Sub （4分）

5、* 利用判断一个三位数是否为对称数（如：343）的函数过程，求出所有三位对称数之和。 * 程序代码如下：

Private Sub Command1_Click() Dim sum As Long,n As Integer sum=0

For n = 100 To 999

If duicheng(n) then sum=sum+ Next n End Sub

Public Function duicheng(ByVal i%) As Boolean a = i Mod 10 c = i \\ 100 If a = c Then duicheng=true Else

duicheng=False End If End

（4分）

6、* 下面程序计算1!+3!+5!+...+9!的值，请将其补充完整。 * 程序代码如下： Dim nt As Single

Private Sub aa(ByVal n As Single) Dim i As Integer nt = 1 For i = 1 To n nt = nt * i Next i End Sub

Private Sub Form_Click() Dim sum As Single, n As Integer sum = 0

For n = 1 To 9 Step 2 aa (

)

sum = sum + Next n Print sum End Sub （4分）

7、* 编写一个登录的程序，如图{}所示。

* 运行过程：点击确定按钮时判断密码是否为“Gong”，如果是则使用msgbox显示“欢迎你！”，如果不是则清空密码输入框，焦点重新定位到密码输入框。 Private Sub Form_Load() Text2.PasswordChar = \ Text2. Text1 = \ End Sub

Private Sub Command1_Click()

= \

Dim I As Integer If Text2.Text = \ MsgBox \登录成功\ Else .Text = \\ Text2.SetFocus End If End Sub 【附图5】（6分） 三、编程题（2道小题，共20分） 1、* 编写程序： * 已知一个斐波那契数列的前两项为1,1，以后的每一项均为前两项的和。 * 例如：1,1,2,3,5，...，请求出这个数列前43项的和。 （10分） 必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计! 请将你解答本题所写的源程序粘贴到下面或者上载源程序 2、* 编写程序： * 先下载数据文件kaoshiwenjian.txt到自己的计算机中,然后编制程序，要求：统计出该数据文件中奇数的个数。 （【下载文件“kaoshiwenjian.txt”】；）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。 （10分） 必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计! 请将你解答本题所写的源程序粘贴到下面或者上载源程序

本文来源：https://www.bwwdw.com/article/4pea.html