A)1B)-1C)TrueD)False
(15)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
a$="VisualBasic"
PrintString(3,a$)
EndSub
程序运行后,单击命令按钮,在窗体上显示的内容是
A)VVVB)VisC)sicD)11
(16)设a=2,b=3,c=4,d=5,下列表达式的值是
Nota<=cOr4*c=b^2Andb<>a+c
A)-1B)1C)TrueD)False
(17)设a=5,b=4,c=3,d=2下列表达式的值是
3>2*bOra=cAndb<>cOrc>d
A)1B)TrueC)FalseD)2
(18)设a="MicrosoftVisualBasic",则以下使变量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*2\5Mod3的值是
A)1 B)0 C)3 D)出现错误提示
(20)以下选项中,不合法的VisualBasic的变量名是
A)a5b B)_xyz C)a_b D)andif
(21)下列语句的输出结果是
PrivateSubCommand1_Click()
x=5:
y=3
Print5*6/3
EndSub
A)10B)3C)5D)6
(22)下列语句的输出结果是
PrivateSubCommand1_Click()
x="123":
y="456"
z=Val(x)+Val(y)
Printz
EndSub
A)123456B)5C)579D)456
(23)执行语句
s=Len(Mid("VisualBasic",1,6))后,s的值是
A)VisualB)BasicC)6D)11
二、填空题
(1)以下程序输出结果是
PrivateSubCommand1_Click()
a$="北京"
b$="Shanghai"
c$=Left(a$,2)+String(3,"-")+Right(b$,8)
Printc$
EndSub
(2)以下程序输出结果是
PrivateSubCommand1_Click()
x=3:
y=4:
z=5
x=y:
y=x:
z=y
Printz
EndSub
(3)以下程序输出结果是
PrivateSubCommand1_Click()
y=5
PrintNot(yMod2=0)
PrintyMod2<>0
PrintyMod2=1
Print(y-1)Mod2=0
PrintyMod2-1=0
EndSub
(4)以下程序输出结果是
PrivateSubCommand1_Click()
a$="3":
b$="5"
c=Val(a$)+Val(b$)
d=Val(a$+b$)
e=c+d
Printe
EndSub
(5)以下程序输出结果是
PrivateSubCommand1_Click()
a$="VisualBasicProgramming"
b$=".Net"
c$=Left(a$,12)&b$&Right(a$,11)
Printc$
EndSub
(6)以下程序输出结果是
PrivateSubCommand1_Click()
a$="BeijingShanghai":
b$=Mid(a$,InStr(a$,"g")+1)
Printb$
EndSub
(7)以下程序输出结果是
PrivateSubCommand1_Click()
str1="Microsoft"
PrintLen(str1)
EndSub
(8)以下程序输出结果是____
PrivateSubCommand1_Click()
Print83\7Mod2^3
EndSub
(9)设有如下程序段:
a$="BeijingShanghai"
b$=Mid(a$,InStr(a$,"g")+1)
执行上面的程序段后,变量b$的值为__
(10)执行以下程序后输出的结果是___
PrivateSubCommand1_Click()
ch$="AABCDEFGH"
PrintMid(Right(ch$,6),Len(Left(ch$,4)),2)
EndSub
(11)执行以下程序段后,变量c$的值为___
a$="VisualBasicProgramming"
b$="Quick"
c$=b$&Ucase(Mid$(a$,7,6))&Right$(a$,12)
printc$
(12)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程
PrivateSubCommand1_Click()
a$="VisualBasic"
PrintString(3,a$)
EndSub
程序运行后,单击命令按钮,在窗体上显示的内容是_______
(13)执行以下程序后输出的结果是___
PrivateSubCommand1_Click()
a$="BeijingShanghai"
b$=Mid(a$,InStr(a$,"g")+1)
Printb$
EndSub
(14)执行以下程序后输出的结果是___
PrivateSubCommand1_Click()
DimbAsBoolean
b=5-8
Printb
EndSub
(15)执行以下程序后输出的结果是
PrivateSubCommand1_Click()
DimaAsLong
a=1234
a&=4567
Printa;a&
EndSub
(16)执行以下程序后输出的结果是
PrivateSubCommand1_Click()
a=23:
b=a\5:
c=aMod10
Printa+b+c
EndSub
(17)执行以下程序后输出的结果是
PrivateSubCommand1_Click()
a="TTTT":
a=Mid(a,2,3)
Mid(a,2,1)="&"
Printa
EndSub
(18)执行以下程序后输出的结果是
PrivateSubCommand1_Click()
a=3:
b=6:
c$="a+b"
d$=c$+"="+Str$(a+b)
Printd$
EndSub
(19)执行以下程序后输出的结果是
PrivateSubCommand1_Click()
a="1234"
PrintRight(a,3)+String(3,a)
EndSub
(20)执行以下程序后输出的结果是
PrivateSubCommand1_Click()
y=1:
x=2
PrintIIf(x>=y,x,y)
EndSub
(21)执行以下程序后输出的结果是
PrivateSubCommand1_Click()
a=3:
b=4
Printa=b
EndSub
(22)执行以下程序后输出的结果是___
PrivateSubCommand1_Click()
a="AbC":
b="dEF"
c=UCase(a)+LCase(b)
PrintAsc(c)
EndSub
(23)执行以下程序后输出的结果是___
PrivateSubCommand1_Click()
x=6:
y=2:
z=5
Printz=x-y
EndSub
(24)执行以下程序后输出的结果是___
PrivateSubCommand1_Click()
a=-3^2:
b=2^3
Printa>b
EndSub
(25)执行以下程序后输出的结果是___
PrivateSubCommand1_Click()
a=23:
b=a\5:
c=aMod10
Printa+b+c
EndSub
(26)执行以下程序后输出的结果是___
PrivateSubCommand1_Click()
a=300:
b=20
a=a+b
b=a-b
a=a-b
Printb;
EndSub
(27)以下程序输出的结果是____
PrivateSubCommand1_Click()
a$="Good":
b$="Luck"
Printa$+b$
Printa$&b$
EndSub
(28)下列程序输出结果是
PrivateSubCommand1_Click()
a=300:
b=20
a=a+b
b=a-b
a=a-b
Printb
EndSub
(29)下列程序执行结果是
PrivateSubCommand1_Click()
a="abcd":
b="123"
Printa>b
EndSub
(30)下列程序输出结果是
PrivateSubCommand1_Click()
a=10:
b=5:
c=1
Printa>b>c
EndSub
(31)在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimbAsInteger
b=b+1
Printb
EndSub
运行程序,三次单击命令按钮,变量b的值是
(32)在程序中添加一个命令按钮,并编写如下程序代码:
PrivateSubCommand1_Click()
x="123.5":
y="-100"
z=x+y
PrintVal(z)
EndSub
程序运行时,单击命令按钮后在窗体上的输出结果为
数据的输入输出练习题
一、选择题
(1)执行下面的语句后,所产生的信息框的标题是
PrivateSubCommand1_Click()
Dimp
p=MsgBox("aa",,"bb","",5)
EndSub
A)aaB)bbC)空D)出错
(2)执行如下两条语句,窗体上显示的是
a=9.8596
PrintFormat(a,"$00,00.00")
A)0,009.86B)$9.86
C)9.86D)$0,009.86
(3)在窗体上画一个文本框,然后编写如下事件过程:
PrivateSubCommand1_Click()
x=InputBox("请输入一个整数")
Printx+Text1.Text
EndSub
程序运行时,在文本框中输入456,然后单击窗体,在输入对话框中输入123,单击“确定”按钮后,在窗体上显示的内容为
A)123B)456C)479D)123456
(4)假定有如下的窗体事件过程:
PrivateSubCommand1_Click()
a$="MicrosoftVisualBasic"
b$=Right(a$,5)
c$=Mid(a$,1,9)
MsgBoxa$,34,b$,c$,5
EndSub
程序运行后,单击窗体,则在弹出的信息框的标题栏中显示的信息是
A)MicrosoftVisualB)Microsoft
C)BasicD)5
(5)窗体上有一个名称为Command1的命令按钮,其事件过程如下:
PrivateSubCommand1_Click()
x="VisualBasicProgramming"
a=Right(x,11)
b=Mid(x,7,5)
c=MsgBox(a,,b)
EndSub
运行程序后单击命令按钮,以下叙述中错误的是
A)信息框的标题是Basic
B)信息框中的提示信息是
Programming
C)c的值是函数的返回值
D)MsgBox的使用格式有错
(6)在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程:
PrivateSubCommand1_Click()
a$="softwareandhardware"
b$=Right(a$,8)
c$=Mid(a$,1,8)
MsgBoxa$,,b$,c$,1
EndSub
运行程序,单击命令按钮,则在弹出的信息框的标题栏中显示的是
A)softwareandhardware
B)softwareC)hardwareD)1
(7)在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:
PrivateSubCommand1_Click()
a=InputBox("Enteraninteger")
b=InputBox("Enteraninteger")
Text1.Text=b+a
EndSub
程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是
A)108B)18C)810D)出错
(8)在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
x=InputBox("请输入一个整数")
Printx+345
EndSub
程序运行后,单击命令按钮,在输入对话框中输入123,则在窗体上输出的内容为
A)123345B)468C)123D)345
(9)MsgBox函数返回值的类型为
A)整数(Integer)B)字符串C)变体
D)整数或字符串(视选择的按钮而定)
二、填空题
(1)执行以下程序
PrivateSubCommand1_Click()
a=InputBox("请输入")
b=InputBox("请输入")
Printa+b
EndSub
运行时输入3和4,输出的结果是
(2)假定有如下的窗体事件过程;
PrivateSubCommand1_Click()
a$="MicrosoftVisualBasic"
b$=Right(a$,5)
c$=Mid(a$,1,9)
MsgBoxa$,34,b$,c$,5
EndSub
程序运行后,单击窗体,则在弹出的信息框的标题栏中显示的信息是
(3)执行以下程序后输出的结果是
PrivateSubCommand1_Click()
a=12345
PrintFormat$(a,"000.00")
EndSub
(4)执行以下程序后输出的结果是
PrivateSubCommand1_Click()
Print"25+32=";25+32
EndSub
(5)执行以下程序后输出的结果是
PrivateSubCommand1_Click()
a%=3.14156
Printa%
EndSub
(6)执行以下程序后输出的结果是
PrivateSubCommand1_Click()
PrintFormat(1732.46,"+##,##0.0")
EndSub
(7)执行以下程序后输出的结果是
PrivateSubCommand1_Click()
x=8
Printx+1;x+2;x+3
EndSub
(8)在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:
PrivateSubCommand1_Click()
a=InputBox("Enteraninteger")
b=InputBox("Enteraninteger")
Text1.Text=b+a
EndSub
程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是
(9)在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
a=InputBox("请输入一个整数")
b=InputBox("请输入一个整数")
Printa+b
EndSub
程序运行后,单击命令按钮,在输入对话框中分别输入789和123,输出结果是
(10)在窗体上添加一个文本(名称Text1)和一命令按钮(名称为Command1),并编写以下程序代码:
PrivateSubCommand1_Click()
DimsAsString
s="BeijingShanghai"
Text1.Text=Mid(s,InStr(s,"i"),4)
EndSub
则程序运行时,单击命令按钮
Command1后,文本框Text1中将显示
(11)下列程序输出结果是
PrivateSubCommand1_Click()
MsgBoxStr(123+123)
EndSub
(12)下列程序输出结果是
PrivateSubCommand1_Click()
x=InputBox("Pleaseinput")
Printx&"123"
EndSub
VisualBasic控制结构练习题
一、选择题
(1)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimiAsInteger,nAsInteger
Fori=0To50
i=i+3
n=n+1
Ifi>10ThenExitFor
Next
Text1.Text=Str(n)
EndSub
程序运行后,单击命令按钮,在文本框中显示的值是
A)2B)3C)4D)5
(2)以下是命令按钮Command1