c) 15 d) 20 答案：C
19)下面程序执行的结果是____。 Private Sub Form_Click() A$=\ C=Val(A$)+Val(B$) Print C\\100 End Sub a) 123 b) 3 c) 5 d) 579 答案：C
20)下列循环语句将执行______次。 A=100 Do
Print a a=a+1
Loop until a<=10 a) 1 b) 10 c) 100 d) 死循环 答案：D
记录 16 到 20 (总共 351 个记录) 第一页 前一页 下一页 最后一页 vb期末复习题库Visual Basic 期末复习题库 单项选择题判断题填空题编程题
11)下列程序的运行后s的值是_____。 S=0
For x=99 to 1 Step-2 s=s+x Next x Print s a) 100 b) 500 c) 2500 d) 5000 答案：C
12)下列程序的执行结果是____。 K=0
For I=1 To 3 a=I^I^K print a; Next I
a) 1 1 1 b) 1 2 3 c) 0 0 0 d) 1 4 9 答案：A
13)下列程序的执行结果是_____。 Dim a(5) As String Dim b As Integer Dim I As Integer For I =0 To 5 a(I)=I+1 Print a(I) Next I
a) 123456 b) 6
c) 654321 d) 0 答案：A
14)下列程序的执行结果为_____。 Dim intsum As Integer Dim I As Integer intsum=0
For I=20.2 To 5 Step -4.7 intsum=intsum +I Next I
Print intsum a) 150 b) 200 c) 50 d) 0 答案：C
15)下列程序的执行结果为_____。 Dim S As Integer,n As Integer S=0:n=1
Do While n<=100 S=S+n n=n+1 Loop Print S a) 5050 b) 2500 c) 3000 d) 4000 答案：A
记录 11 到 15 (总共 351 个记录) 第一页 前一页 下一页 最后一页 vb期末复习题库Visual Basic 期末复习题库
单项选择题判断题填空题编程题
6)当执行以下程序时，在名为lblResult的标签框内将显示_____。 Private Sub cmdlt_click() Dim I,R R=0
For I=1 To 5 Step 1 R=R+I Next I
lblResult.Caption=Str（R） End Sub
a) 字符串15 b) 整数15 c) 字符串5 d) 整数5 答案：A
7)如下有一段不完整的程序段，如果要求该程序执行3次循环，则应在程序中的括号里输入______。
X=1 do
x=x+3 print x loop until(___) a) x>=8 b) x<=8 c) x>=7 d) x<=7 答案：A
8)若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为______。 If a>5 then if b<4 then c=a-b else
c=b-a End if
elseif b>3 then c=a*b else
c=a mod b End if a) 2 b) -1 c) 1 d) 6 答案：A
9)设有如下语句：
str1=inputbox(\输入\练习\
从键盘上输入字符串“示例”后，str1的值是___。 a) “输入” b) “”
c) “练习” d) “示例” 答案：D
10)我们在一个窗体上建立两个文本框，名称分别为Text1和Text2，事件过程如下， Private Sub Text1_change( ) Text2.text=ucase(Text1.text) End Sub
则在Text1文本框输入“visual basic”，Text2将______。 a) Text2中无内容显示。
b) Text2显示\。 c) Text2显示\ d) Text1显示\ 答案：B
记录 6 到 10 (总共 351 个记录) 第一页 前一页 下一页 最后一页 无标题文档Visual Basic 期末复习题库 填空题判断题选择题编程题
记录 16
16)下列程序的执行结果是____。 T = O : m = 1 : Sum = 0 Do
t = t + m : Sum = Sum + t : m = m + 2 Loop While m <= 9 Print Sum 答案：55
17)一组具有相同名称，不同下标的下标变量称为______。 答案：数组
18)给定年份，下列程序用来判断该年是否闰年，请补充完该程序。
提示：闰年的条件是年号可以被4整除但不能被100整除，或者能被400整除。 Private Sub Command6_Click() Dim y As Integer
y=InputBox(\请输入年号\
If(y Mod 4=0______y Mod 100<>0) or (y Mod 400=0) Then Print \是闰年\
Else Print \是普通年份\ End If End Sub 答案：AND
19)设a=2,b=3,c=4,d=5下列a>b and c<>d or c=a表达式的值是_____。 答案：FALSE
20)假定在C：盘根目录下有一个名为pic2.gif的图形文件，要在运行期间把该文件装入一个图片框，应执行的语句为_____。
答案：PICTURE1.PICTURE=LOADPICTURE(\
到 20 (总共 103 个记录) 第一页 前一页 下一页 最后一页 vb期末复习题库Visual Basic 期末复习题库 单项选择题判断题填空题编程题
1)下列程序运行后，输出的结果为______。 B=1
Do while (b<40) b=b*(b+1) Loop Print b a) 42 b) 39 c) 6 d) 1 答案：A
2)设执行以下程序段时依次输入1、3、5，执行结果为_____。 Dim a(4) As Integer Dim b(4) As Integer For K =0 To 2
a(K+1) =Val(InputBox(“请输入数据：\ b(3-K) =a(K+1) Next K Print b(K) a) 1 b) 3 c) 5 d) 0 答案：A
3)下列程序执行后，变量s的值为______。 Dim s As long ,x As Integer s=0:x=1
Do While (x<10) s=s+x x=x+2 Loop Print s a) 10 b) 25 c) 50 d) 100 答案：B
4)编写如下事件过程：
Private Sub Form_MouseDown(Button As Integer ,Shift As Integer,X As Single,Y As Single)
If Shift=6 And Button=2 Then Print \