2024年5月11日发(作者：)
1．下列不是VB常量的是 B 。
A）3.14 B）′Name ′ C)#10/18/2007# D)True
2．确定控件在窗体上位置的属性是 C 。
A）Width 和 Height B）Width 和 Top C）Top 和 Left D）Top
和Height
3．数学表达式1≤X＜10表示成正确的VB表达式为 B 。
A）1≤X＜10 B）X＞=1 And X＜10
C) X＞=1 Or x＜10 D) X＞=1 And ＜10
4. 下面的__ B ___语句可以实现：先在窗体上输出大写字母A，然后在同一行的第10列输
出小写字母b。
A）Print "A";Tab(9);"b" B）Print "A";Spc(8);"b"
C）Print "A";Space(10);"b" D）Print "A";Tab(8);"b"
5. 下列控件中，不能改变大小的控件是 D 。
A）TextBox B）Label C）Frame D）Timer
6．Visual Basic过程的编写是在 D 中进行的。
A）窗体窗口 B）工程资源管理器窗口 C）属性窗口 D）代码
编辑窗口
7. 在Visual Basic中，声明全局变量应该用 D 关键字。
A）Dim B）Private C）Static D）Public
8. 在Visual Basic表达式中，运算符的运算顺序为 A 。
A）算术运算符—>字符串运算符—>关系运算符—>逻辑运算符
B）逻辑运算符—>关系运算符—>字符串运算符—>算术运算符
C）字符串运算符—>算术运算符—>关系运算符—>逻辑运算符
D）关系运算符—>逻辑运算符—>算术运算符—>字符串运算符
9. 下列属于非法调用的函数是 A 。
A）sqr(-5) B)Sgn(-5) C)Exp(-5) D)Int(-5)
10. 下列能够正确输出”a=8”形式的语句是 B 。
A）print a=3+5 B）pirnt “a=”;3+5
C）print “a=3+5” D）print a=;3+5
11. 下列符号中，可以用作VB变量名的是 C 。
A）x.y.z B)3xyz C)x_yz D)Integer
12. 可以删除字符串两端空格的函数是 A 。
A）Trim B）Rtrim C）Ltrim D）Mid
13. 函数Int(Rnd*80)+1是在 D 范围内产生随机整数。
A）[0，80] B）[0，79] C）[1，79] D）[1，80]
14. 下列四个字符串进行比较，最大的是 D 。
A）"9977 " B）"CD45 " C）"Cinema " D）"text "
15. 要使文本框可以显示多行文本，需设置 A 属性为True。
A）MultiLine B）Enabled C）MaxLength D）Locked
16．已知f=“12345678”，则表达式val(Left(f,3))+val(Mid(f,4,2))的值是 A 。
A）168 B)12345 C)123 D)45
17. 执行语句：Msgbox “北京欢迎您！”,1,“2008”，所产生的消息对话框的标题是 B 。
A）北京欢迎您！ B）2008 C）0 D）1
18．下面正确的赋值语句是 C 。
A）y=3x B)3*x=y C)y=3*x D)x+y=10
19. 设a=6,则执行IF IIF(a>5,-1,0) THEN X=0 ELSE X=1后,x的值为 C 。
A) 5 B) 6 C) 0 D) -1
20. 在Visual Basic中，表达式y1+z2=a*Sin(b*x+c)+k的类型是 B 。
A）算术表达式 B）关系表达式 C）逻辑表达式 D）字符表
达式
21. 如果变量a=50、b="ABC "、c="abc "、d=10，则表达式a < d Or b > c And b < > c的值是
B 。
A）True B）False C）Yes D）No
22. 若Dim b(3) As Integer ,则Ucase(Chr(97) & UBound(b))的结果是 A 。
A）A3 B）A2 C）A1 D）A0
23. 下列各项不是 Visual Basic的基本数据类型的是 A 。
A）Char B）String C）Integer D）Double
24. 下列表达式中，表达式 A 的运算结果与其它3个不同。
A）Int(-3.5)-1.5 B）Int(-4.5)+0.5 C）-Abs(-4.5) D）
Fix(-4.5)-0.5
25. 对于窗体Form1，执行了=+100语句后，则该窗体 D
A）上移 B）下移 C）左移 D）右移
26. .对于窗体Forml,若将其名称属性设置为Disp,Caption属性设置为OK，则下列正确的语
句是 C 。
A）=1000 B)=1000
C) =1000 D)以上语句都不对
27. 以下程序段执行后，整型变量n的值为 B 。
y =2008
n = y 4 + y 400 – y 100
A）486 B）487 C）507 D）467
28. 如果每0.1秒产生一个计时器事件，那么时钟控件的Interval属性应设为 C 。
A）1 B）10 C）100 D）1000
29. 如果a=1，b=-1，则语句Print (a = 1) And (b = -1)的输出结果是 B 。
A）False B）True C）1 D）-1
30. 将数据项“北京奥运会”添加到列表框Listl中成为第2项，应使用 C 语句。
A）m”北京奥运会”，2 B）m2，”北京奥运会”
C）m”北京奥运会”，1 D）m1，”北京奥运会”
31. 若要使标签框的大小自动与所显示的文本相适应，则可通过设置 A 属性的值为
True来实现。
A）AutoSize B）Alignment C）Appearance D）Visible
32. 表示滚动条控件取值范围最大值的属性是 A 。
A）Max B)LargeChange C)Value D)Min
33. 窗体上有一个列表框控件List1，其中含有若干列表项，则 D 能表示当前被选中的
列表项内容。
A） B）dex C） D）
34. 要清除PictureBox控件中的图形，可用 A 语句。
A）e=Loadpicture（） B）e =””
C）e=Loadpicture(“ ”) D）Kill e
35. 执行语句Open " " for Input As #1，对文件Text. dat中的数据能够执行的操作是
C 。
A）只能写，不能读 B）即可以读，也可以写
C）只能读，不能写 D）不能读，不能写
36. 执行下列语句：
A=InputBox(“请输入第一个数”)
B= InputBox(“请输入第二个数”)
Print A+B
当输入为111和222时，输出结果为 A 。
A）111222 B）111 C）222 D）333
37. 用Select Case语句选择|x|>10情况的语句为：Case C 。
A）Not (-10 To 10) B）-10 To 10
C）Is<-10,Is>10 D）Abs(x)>10
38. 以下程序段运行后，输出结果是 D 。
For i=1 To 3
For j=1 To i
If j Mod 2=0 Then
Else
Print”＄”;
End If
Next j
Next i
A)＄ B) @ C) @ D) ＄
＄＄ @@ @＄ ＄@
＄＄＄ @@@ @＄@ ＄@＄
39. 下列程序段的循环结构执行后，i的输出值是 B 。
Dim y As Integer
For i=2 To 10 Step 2
y=y+i
Next i
Print i
A）11 B）12
C）13 D）因为y初值不知道，所以不确定
40. 下面分别是求两个数中的大数的程序段，不正确的是 D 。
A）Max=IIf(x>y,x,y) B）If x>y Then Max=x Else Max=y
C）Max=x D）If y>=x Then Max=y
If y>=x Then Max=y Max=x
填空题
1．VB工程文件的扩展名为.vbp，窗体文件的扩展名为 *.frm 。
2．若要将窗体Forml隐藏起来，调用语句为 。
3．Visual Basic的三种工作模式是设计、 运行 和中断。
4．在调用过程时参数传递的两种方式是 按值 和 按地址 。
5．下面程序的功能是找出100到999之间所有的“水仙花数”，请用正确的内容填空。所谓“水
仙花数”是指一个三位数，其各位数字的立方和等于该数本身，例如153=1
3
+5
3
+3
3
，故153
是“水仙花数”。
Private Sub Form Click( )
Dim p As Integer
For n =100 To 999
a= int(n/100)
b=Int((n-a*100)/10)
c=n Mod10
p=a^3+b^3+c^3
If p=n Then
Print n; 是“水仙花数”
End If
Next n
Print”@”;
End Sub
6．以下程序实现每次单击按钮Command1时，标签Label1在窗体Form1中向右移动100
个标准单位；当标签移出窗体右边界时，再次单击Command1，标签Label1回到窗体
的左边界。
Private Sub Command1_Click()
If > then
=0
Else
=+100
End If
End Sub
7．执行下面过程后，窗体上显示的是 13 。
Private Sub Form_Click()
Dim a(10,10) as Integer
Dim i as Integer，j as Integer
For i=1 to 10
For j=1 to 10
a(i,j)=i*j
next j
next i
print a(2,2)+a(3,3)
end sub
编程题
1．编写程序，分别用InputBox函数接收两个整数，在窗体中输出其中的较大数。(10)
2．S=1+2
2
+3
2
+….+n
2
，问n最小为多少时S的值大于10000，请编程计算n的值。（10分）。
3．用循环语句编程输出下列图形（10分）
4．利用随机函数模拟产生10名学生的《VB课程》期末考试成绩（0~100），然后将成绩按
从大到小的次序排序输出。（10分）
5编写程序，分别用InputBox函数接收两个整数，在窗体中输出其中的较大数。(10)
6．编写程序将自然数3~100中的所有素数打印出来，并统计其个数（10分）。
7．用循环语句编程输出下列图形（10分）
编程一：
Private Sub Command1_Click()
a = Val(InputBox("请输入A的值"))
b = Val(InputBox("请输入B的值"))
If a > b Then
Print "两个数中A大"
Else
Print "两个数中B大"
End If
End Sub
编程二：
Private Sub Command1_Click()
Dim s As Integer,n As Integer
s = 0
n = 0
Do While s <= 1000
n =n+ 1
s = s +n ^ 2
Loop
Print n
End Sub
编程三：
Private Sub Form_Load()
Dim Att As String
For i = 0 To 4
Print String(i * 2 + 1, "*")
Next
End Sub
编程四：
Option Base 1
Private Sub Form_Click()
Dim a(10) As Integer
For i = 1 To 10
a(i) = Int(Rnd * 101)
Print a(i);
Next i
For i = 1 To 9
For j = i + 1 To 10
If a(i) < a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
End Sub
编程五：
同一
编程六：
Private Sub Command1_Click()
Dim i As Integer, m As Integer, flag As Boolean, s As Integer
s = 0
For m = 3 To 100
flag = True
For i = 2 To m - 1
If (m Mod i) = 0 Then flag = False
Next i
If flag Then
s = s + 1
Print m
End If
Next m
Print "一共有" & s & "个素数"
End Sub
编程七：
Private
Sub
Form_Load()
Dim
Att As
String
For
i = 0 To
4
Att = String(i * 2 + 1, "*")
Print Space(9 - i) & Att
Next
End
Sub
发布评论