1、复习题Vb第一阶段复习题目2011-6-17一、选择题(1)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()a = Sqr(3):b = Sqr(2):c = a bPrint cEnd Sub程序运行后,单击命令按钮,则窗体上显示的内容是A)-1 B)0 C)False D)True(2)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click() a$ = Visual Basic Prograaming b$ = C+ c$ = UCase(Le
2、ft$(a$, 7) & b$ & Right$(a$, 11) Print cEnd Sub程序运行后,单击命令按钮,则窗体上显示的内容是A) Visual BASIC Prograaming B) VISUAL C+ PrograamingC) Visual C+ Prograaming D) VISUAL BASIC Prograaming(3)设 a=2,b=3,c=4,下列表达式的值是 Not a = c Or 4*c = b2 And b a+c A)-1 B)1 C)True D)False (4)设 a=5,b=6,c=7,d=8,执行下列语句后, x 的值为X=IIf(ab)
3、And(cd),10,20) A)10 B)20 C)True D)False (5)表达式 2*32+4*2/2+32 的值是A)30 B)31 C)49 D)48 (6)以下不能输出“Program”的语句是A)Print Mid(VBProgram, 3, 7) B)Print Right(VBProgram, 7) C)Print Mid(VBProgram, 3) D)Print Left(VBProgram, 7) (7)设a=4,b=5,c=6,执行语句 Print ab And b b c后,窗体上显示的是A)True B)False C)1 D)出错信息(10)以下关系表达式
4、中,其值为False的是A) ABCAbC B) thetheyC) VISUAL=UCase(Visual) D) IntegerInt(11)语句Print 5/4*65 Mod 2的输出结果是A)0 B)1 C)2 D)3(12)以下合法的Visual Basic标识符是A)ForLoop B)Const C)9abc D)a#x(13)表达式 5 Mod 3+35*2的值是A)0 B)2 C)4 D)6(14)设x=4,y=8,z=7,以下表达式的值是xz) Or zxA)1 B)-1 C)True D)False(15)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件
5、过程:Private Sub Command1_Click() a$ = VisualBasic Print String(3, a$)End Sub程序运行后,单击命令按钮,在窗体上显示的内容是A)VVV B)Vis C)sic D)11(16)设a=2, b=3, c=4, d=5,下列表达式的值是Not a=c Or 4*c=b2 And ba+c A)-1 B)1 C)True D)False (17)设a=5,b=4,c=3,d=2下列表达式的值是3 2 * b Or a = c And b c Or c d A)1 B)True C)False D)2 (18)设a = Micro
6、softVisualBasic ,则以下使变量b的值为VisualBasic的语句是A)b=Left(a, 10) B)b=Mid(a, 10) C)b=Right(a, 10) D)b=Mid(a, 11, 10) (19)在ViusalBasic中,达式3*25Mod3的值是A)1B)0C)3D)出现错误提示(20)以下选项中,不合法的VisualBasic的变量名是A)a5bB)_xyzC)a_bD)andif(21)下列语句的输出结果是Private Sub Command1_Click() x = 5: y = 3 Print 5 * 6 / 3End SubA)10 B)3 C)5
7、 D)6(22)下列语句的输出结果是Private Sub Command1_Click() x = 123: y = 456 z = Val(x) + Val(y) Print zEnd SubA)123456 B)5 C)579 D)456(23)执行语句s=Len(Mid(VisualBasic,1,6)后,s的值是A) Visual B) Basic C) 6 D) 11二、填空题(1)以下程序输出结果是Private Sub Command1_Click() a$ = 北京 b$ = Shanghai c$ = Left(a$, 2) + String(3, -) + Right(b
8、$, 8) Print c$End Sub(2)以下程序输出结果是Private Sub Command1_Click() x = 3: y = 4: z = 5 x = y: y = x: z = y Print zEnd Sub(3)以下程序输出结果是Private Sub Command1_Click() y = 5 Print Not (y Mod 2 = 0) Print y Mod 2 0 Print y Mod 2 = 1 Print (y - 1) Mod 2 = 0 Print y Mod 2 - 1 = 0End Sub(4)以下程序输出结果是Private Sub Com
9、mand1_Click() a$ = 3: b$ = 5 c = Val(a$) + Val(b$) d = Val(a$ + b$) e = c + d Print eEnd Sub(5)以下程序输出结果是Private Sub Command1_Click() a$ = Visual Basic Programming b$ = .Net c$ = Left(a$, 12) & b$ & Right(a$, 11) Print c$End Sub(6)以下程序输出结果是Private Sub Command1_Click() a$ = BeijingShanghai: b$ = Mid(a
10、$, InStr(a$, g) + 1) Print b$End Sub(7)以下程序输出结果是Private Sub Command1_Click() str1 = Microsoft Print Len(str1)End Sub(8)以下程序输出结果是_Private Sub Command1_Click() Print 83 7 Mod 2 3End Sub(9)设有如下程序段:a$=BeijingShanghaib$=Mid(a$,InStr(a$,g)+1)执行上面的程序段后,变量b$的值为_(10)执行以下程序后输出的结果是_Private Sub Command1_Click()
11、 ch$ = AABCDEFGH Print Mid(Right(ch$, 6), Len(Left(ch$, 4), 2)End Sub(11)执行以下程序段后,变量c$的值为_a$=Visual Basic Programmingb$=Quickc$=b$&Ucase(Mid$(a$,7,6)&Right$(a$,12)print c$(12)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程Private Sub Command1_Click() a$ = VisualBasic Print String(3, a$)End Sub程序运行后,单击命令按钮,在窗体上显示
12、的内容是_(13)执行以下程序后输出的结果是_Private Sub Command1_Click() a$ = BeijingShanghai b$ = Mid(a$, InStr(a$, g) + 1) Print b$End Sub(14)执行以下程序后输出的结果是_Private Sub Command1_Click() Dim b As Boolean b = 5 - 8 Print bEnd Sub(15)执行以下程序后输出的结果是Private Sub Command1_Click() Dim a As Long a = 1234 a& = 4567 Print a; a&End
13、 Sub(16)执行以下程序后输出的结果是Private Sub Command1_Click() a = 23: b = a 5: c = a Mod 10 Print a + b + cEnd Sub(17)执行以下程序后输出的结果是Private Sub Command1_Click() a = TTTT: a = Mid(a, 2, 3) Mid(a, 2, 1) = & Print aEnd Sub(18)执行以下程序后输出的结果是Private Sub Command1_Click() a = 3: b = 6: c$ = a+b d$ = c$ + = + Str$(a + b)
14、 Print d$End Sub(19)执行以下程序后输出的结果是Private Sub Command1_Click() a = 1234 Print Right(a, 3) + String(3, a)End Sub(20)执行以下程序后输出的结果是Private Sub Command1_Click() y = 1: x = 2 Print IIf(x = y, x, y)End Sub(21)执行以下程序后输出的结果是Private Sub Command1_Click() a = 3: b = 4 Print a = bEnd Sub(22)执行以下程序后输出的结果是_Private
15、 Sub Command1_Click() a = AbC: b = dEF c = UCase(a) + LCase(b) Print Asc(c)End Sub(23)执行以下程序后输出的结果是_Private Sub Command1_Click() x = 6: y = 2: z = 5 Print z = x - yEnd Sub(24)执行以下程序后输出的结果是_Private Sub Command1_Click() a = -3 2: b = 2 3 Print a bEnd Sub(25)执行以下程序后输出的结果是_Private Sub Command1_Click() a
16、 = 23: b = a 5: c = a Mod 10 Print a + b + cEnd Sub(26)执行以下程序后输出的结果是_Private Sub Command1_Click() a = 300: b = 20 a = a + b b = a - b a = a - b Print b;End Sub(27)以下程序输出的结果是_Private Sub Command1_Click() a$ = Good: b$ = Luck Print a$ + b$ Print a$ & b$End Sub(28)下列程序输出结果是Private Sub Command1_Click()
17、a = 300: b = 20 a = a + b b = a - b a = a - b Print bEnd Sub(29)下列程序执行结果是Private Sub Command1_Click() a = abcd: b = 123 Print a bEnd Sub(30)下列程序输出结果是Private Sub Command1_Click() a = 10: b = 5: c = 1 Print a b cEnd Sub(31)在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:Private Sub Command1_Click() Dim b As Integ
18、er b = b + 1 Print bEnd Sub运行程序,三次单击命令按钮,变量b的值是(32)在程序中添加一个命令按钮,并编写如下程序代码:Private Sub Command1_Click() x = 123.5: y = -100 z = x + y Print Val(z)End Sub程序运行时,单击命令按钮后在窗体上的输出结果为数据的输入输出练习题一、选择题(1)执行下面的语句后,所产生的信息框的标题是Private Sub Command1_Click() Dim p p = MsgBox(aa, , bb, , 5)End SubA)aa B)bb C)空 D)出错(2
19、)执行如下两条语句,窗体上显示的是a = 9.8596Print Format(a, $00,00.00)A)0,009.86 B)$9.86C)9.86 D)$0,009.86(3)在窗体上画一个文本框,然后编写如下事件过程: Private Sub Command1_Click() x = InputBox(请输入一个整数) Print x + Text1.TextEnd Sub程序运行时,在文本框中输入456,然后单击窗体,在输入对话框中输入123,单击“确定”按钮后,在窗体上显示的内容为A)123 B)456 C)479 D)123456 (4)假定有如下的窗体事件过程:Private
20、 Sub Command1_Click() a$ = MicrosoftVisualBasic b$ = Right(a$, 5) c$ = Mid(a$, 1, 9) MsgBox a$, 34, b$, c$, 5End Sub程序运行后,单击窗体,则在弹出的信息框的标题栏中显示的信息是A)Microsoft Visual B)Microsoft C)Basic D)5 (5)窗体上有一个名称为Command1的命令按钮,其事件过程如下:Private Sub Command1_Click() x = VisualBasicProgramming a = Right(x, 11) b =
21、Mid(x, 7, 5) c = MsgBox(a, , b)End Sub运行程序后单击命令按钮,以下叙述中错误的是A)信息框的标题是BasicB)信息框中的提示信息是ProgrammingC)c的值是函数的返回值D)MsgBox的使用格式有错(6)在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程:Private Sub Command1_Click() a$ = software and hardware b$ = Right(a$, 8) c$ = Mid(a$, 1, 8) MsgBox a$, , b$, c$, 1End Sub运行程序,单击命令按钮,则在弹出的
22、信息框的标题栏中显示的是A)software and hardware B)software C)hardware D)1 (7)在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:Private Sub Command1_Click() a = InputBox(Enter an integer) b = InputBox(Enter an integer) Text1.Text = b + aEnd Sub程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是A)108 B)18
23、 C)810 D)出错 (8)在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click() x = InputBox(请输入一个整数) Print x + 345End Sub程序运行后,单击命令按钮,在输入对话框中输入123,则在窗体上输出的内容为A)123345 B)468 C)123 D)345(9)MsgBox函数返回值的类型为A)整数(Integer) B)字符串 C)变体 D)整数或字符串(视选择的按钮而定)二、填空题(1)执行以下程序Private Sub Command1_Click() a = InputBox(请输入) b = In
24、putBox(请输入) Print a + bEnd Sub运行时输入3和4,输出的结果是(2)假定有如下的窗体事件过程;Private Sub Command1_Click() a$ = Microsoft Visual Basic b$ = Right(a$, 5) c$ = Mid(a$, 1, 9) MsgBox a$, 34, b$, c$, 5End Sub程序运行后,单击窗体,则在弹出的信息框的标题栏中显示的信息是(3)执行以下程序后输出的结果是Private Sub Command1_Click() a = 12345 Print Format$(a, 000.00)End S
25、ub(4)执行以下程序后输出的结果是Private Sub Command1_Click() Print 25+32=; 25 + 32End Sub(5)执行以下程序后输出的结果是Private Sub Command1_Click() a% = 3.14156 Print a%End Sub(6)执行以下程序后输出的结果是Private Sub Command1_Click() Print Format(1732.46, +#,#0.0)End Sub(7)执行以下程序后输出的结果是Private Sub Command1_Click() x = 8 Print x + 1; x + 2;
26、 x + 3End Sub(8)在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:Private Sub Command1_Click() a = InputBox(Enter an integer) b = InputBox(Enter an integer) Text1.Text = b + aEnd Sub程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是(9)在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click() a =
27、InputBox(请输入一个整数) b = InputBox(请输入一个整数) Print a + bEnd Sub程序运行后,单击命令按钮,在输入对话框中分别输入789和123,输出结果是(10)在窗体上添加一个文本(名称Text1)和一命令按钮(名称为Command1),并编写以下程序代码:Private Sub Command1_Click() Dim s As String s = Beijing Shanghai Text1.Text = Mid(s, InStr(s, i), 4)End Sub则程序运行时,单击命令按钮Command1后,文本框Text1中将显示(11)下列程序输
28、出结果是Private Sub Command1_Click() MsgBox Str(123 + 123)End Sub(12)下列程序输出结果是Private Sub Command1_Click() x = InputBox(Please input) Print x & 123End SubVisual Basic控制结构练习题一、选择题(1)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click() Dim i As Integer, n As Integer For i = 0 To 50 i = i + 3 n = n + 1 If i 10 Then Exit For Next Text1.Text = Str(n)End Sub程序运行后,单击命令按钮,在文本框中显示的值是A) 2 B) 3 C)4 D)5(2)以下是命令按钮Command1
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1