(3)执行以下程序段后,变量c$的值为(QuickBASICPrograming)
a$="VisualBasicPrograming"
b$="Quick"
c$=b$&Ucase(Mid$(a$,7,6))&Right$(a$,11)
(4)以下语句的输出结果是032,548.50。
PrintFormat$(32548.5,"000,000.00")
(5)在窗体(Name属性为Formal)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程:
PrivateSubCommand1_Click()
A=Text.Text+Text2.Text
Printa
EndSub
PrivateSubFormm_Load()
Text1.Text=""
Text2.Text=""
EndSub
程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321,
然后单击命令按钮,则输出结果为123321。
(6)阅读下面的程序段:
ForI=1To3i=1i=2i=3
Forj=1ToIj=1to1j=1to2j=1to3
Fork=jTo3k=1to3k=1to3k=2to3k=1to33
A=A+1a=3a=3+3+2k=2to32
Nextkk=3to31
Nextja=8+3+2+1
NextI
执行上面的三重循环后,a的值为__14__。
(7)在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1),然后编写如下的事件过程:
PrivateSubCommand1_Click()
X=0
DoWhilex<50
X=(x+2)*(x+3)
N=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
EndSub
程序执行后,单击命令按钮,在两个文本框中显示的值分别为2和72。
(8)设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是False
(9)在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:
PrivateSubCommand1_Click()
StaticXAsInteger
StaticYAsInteger
Cls
Y=1
Y=Y+5
X=5+X
PrintX,Y
EndSub 程序运行时,三次单击命令按钮Commandl后,窗体上显示的结果为156Static无法释放x=5+5+5y=1+5
(10)设有语句 x=InputBox("输入数值","0","示例")程序运行后,如果从键盘上输入数值10
并按回车键,变量X的值是字符串"10"
(11)在窗体上有一个文本框控件,要求每一秒钟在文本框中显示一次当前名称为TxtTime:
一个计时器控件,名称为Timerl的时间。
程序为:
PrivateSubTimer1_()
TxtTime.text=Time
EndSub在下划线上应填入的内容是Timer
(12)假定有以下程序段:
Fori=1To33-1/1+1=3
Forj=5To1Step-11-5/-1+1
Printi*j3*5
Next
Next则语句Printi*j的执行次数是15
(13)以下程序段的输出结果为(4)
x=1
y=4
DoUntily>4
x=x*y
y=y+1
Loop
Printx
(14)在窗体上面画一个文本框,然后编写如下事件过程:
PrivateSubForm_Activate()
Text1.Text=""
Text1.SetFocus
Fori=1to10
Sum=Sum+i
Next
Text1.Text=Sum
EndSub上述程序的运行结果是55
首相加末项*项数/2
(15)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
Forn=1To20
IfnMod3<>0Then
m=m+n\3
Nextn
Printn
EndSub
程序运行后,如果单击命令按钮,则窗体上显示的内容是(21)
(16)设有如下程序:
PrivateSubCommand1_Click()
DimsumAsDouble,xAsDouble
sum=0
n=0
Fori=1To5
x=n/i
n=n+1
sum=sum+x
Next
EndSub该程序通过For循环计算一个表达式的值,这个表达式是(1/2+2/3+3/4+4/5)
(17)下面程序运行后,窗体(Form1)中输出的结果是(TrueTrue)
PrivateSubForm_Load()
Form1.AutoRedraw=True设置form1让他显示结果
X=3:
y=5
Printx=3;y=5x是否=3
(18)下面程序执行的结果是(579)
PrivateSubCommand1_Click()
A="123":
b="456"
C=Val(a)+Val(b)2边是数字则做加法
Printc
EndSub
(19)若i的初值为8,则下列循环语句的循环次数为(5)次同样可以用公式:
(终值-初值)/步长+1
DoWhilei<=17
i=i+2
Loop
(20)执行下面的程序段后,x的值为(21)
x=5
Fori=1To20Step2
x=x+i\5
NextI
(21)下面程序运行后,输出的值是(54)
PrivateSubCommand1_Click()
J=1
doWhileJ<5
J=J+1
A=A+J*J
loop
PrintA
EndSub
(22)有如下程序:
PrivateSubFormKeyPress(KeyAsciiAsInteger)
Form=1To3
Forj=1Tom
Fork=jTo3
n=n+m+j-k
Nextk
Nextj
Nextm
Printn
EndSub程序运行后,按任意键,n的值是(20)
(23)在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
A=″12″
B=″34″
C=″56″
PrintA+B+C
EndSub程序运行后,单击命令按钮,输出结果是(123456)
(24)下面程序运行后输出的结果是(11020)
PrivateSubCommand1_Click()
A=0
ForM=1To10
A=A+1∶B=0
ForJ=1To10
A=A+1∶B=B+2
NextJ∶NextM
PrintA;B
EndSub
(25)x=int(Rnd)+3:
if x^2>8 theny=x^2+1:
if x^2=9 then y=x^2-2:
if x^2<8 then y=x^3:
print y
程序运行后输出的结果是_7_。
(26)执行下面的程序段,x的值为
PrivateSubCommand1_Click()
Fori=1To9
a=a+i
Nexti
x=Val(i)
MsgBoxx
EndSub_.参考答案10
(27)在窗体上有一个命令按钮,然后编写如下程序:
FunctionTrans(ByValnumAsLong)AsLong
DimkAsLong
k=1
DoWhilenumnum=0时循环终止
k=k*(numMod10)取个位10位百位相乘
num=num\10
Loop
Trans=k
PrintTrans
EndFunction
PrivateSubCommand1_Click()
DimmAsLong
DimsAsLong
m=InputBox("请输入一个数")
s=Trans(m)
EndSub
程序运行时,单击命令按钮,在输入对话框中输入"789",输出结果为__1__,在输入
对话框中输入"987"输出__2__在输入对话框中输入"879",输出结果为__3__.
参考答案1:
5042:
5043:
504
10表达式Int(4*Rnd+1)*(Int(4*Rnd-1))值的范围是[-4,8]
11语句x+y=x,是错误的赋值语句。
12逻辑表达式Not(1>2),其逻辑值为“真”
13表达式1.5+32>2Or7Mod3<4AndNot1的运算结果是(-1)
14可以将变量A、B值互换的语句是A=C:
C=B:
B=A
15执行如下语句:
a=inutBox("Today","TomorroW,"Yesterday",,,"Daybeforeyesterday",5)
将显示一个输入对话框,在对话框的输入区中显示的信息是(Yesterday)
16能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是(Form1.Caption="VisualBasic窗体")
第五章
1如果在程序中要将c定义为静态变量,且为整型数,则应使用的语句是(StaticaAsInteger)
2声明一个变量为局部变量应该用(Static)
3Sub过程与Function过程最根本的区别是(Sub过程不能返回值,而Function过程能返回值)
4若要向列表框添加列表项,可使用的方法是(AddItem)
5在某个Sub过程中定义的局部变量作用域只限于该过程可以与其它事件过程中定义的局部变量同名
6Sub过程中不可以嵌套调用Sub过程
7定有以下函数过程:
FunctionFun(SAsString)AsString
Dims1AsString
Fori=1ToLen(S)
s1=UCase(Mid(S,i,1))十s1
Nexti
Fun=s1
EndFunction
在窗体上画一个命令按钮,然后编写如下事件过程:
PrlvateSubCommmldl_Click()
DimStr1AsString,Str2AsString
Strl=inputbox("请输入一个字符串")
Str2=Fun(Strl)
PrintStr2
EndSub
程序运行后,单击命令按钮,如果在输入对话框中输入字符串"abcdefg",则单击"确
定"按钮后在窗体上的输出结果为(GFEDCBA)
8复选框的Value属性为__1__时,表示复选框被选中。
第六章
1用下面语句所定义的数组的元素个数是(9)
Dima(-3to5)asinteger
2要声明一个长度为256个字符的定长字符串变量str,正确的语句是(DimstrasString*256)
3设有数组声明语句:
OptionBase0
DimB(-1To10,2To9,20)AsInteger则数组B中共有(2016)个元素
4在窗体上画一个命令按钮,名称为Commandl。
单击命令按钮时,执行如下事件过
程:
PrlVateSubCommandl-C1icko
a$="softwareandhardware"
b$=Right(a$,8)
c$=Mid(a$,1,8)
Msgboxa$,,b$,c$,1
EndSub则在弹出的信息框的标题栏中显示的信息是(hardwafe)
5为了清除列表框中的所有内容,应使用的方法是(Clear)
程序填空
1.下列程序是判断一个整数(>=3)是否为素数,请补充完整。
DimnAsInteger
n=InputBox("请输入一个整数(>=3)")
k=Int(Sqr(n))
i=2
swit=0
Whilei<=kAndswit=0
IfnModi=0Then
__1__Else:
参考答案1.swit=02.swit=1
__2__
EndIf
loop
Ifswit=0Then
Printn;"是一个素数。
"
Else
Printn;"不是一个素数。
"
EndIf
2.下面程序是用来打印九九乘法表的,请补充完整。
DimiAsInteger,jAsInteger,Str1$
Str1=""
Fori=1To9
Forj=1To9
If__1__Then
Str1=Str1+Str$(j)+"×"+Str$(i)+"="+Str$(Val(ij))
Else
Str1=Str1&Chr(13)__2__EndIf
Nextj
Nexti
PrintStr1参考答案1:
j<=I2:
j>i
3.下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。
SubPR()
Randomize
Dima(10)
Forj=1To10
a(i)=Int(__1__)
If__2__Thenk=k+1
Printa(j)
Nextj
Print
Printk/10
EndSub参考答案1:
(99*Rnd)+12:
a(j)Mod5=0
4.以下程序的功能是从键盘输入若干个学生的考试成绩,统计并输出最高分和最低分,当输入负数时结束输入,输出结果。
请补充完整下列程序段。
Dimx,amax,aminAsSingle
x=InputBox("Enterascore")
amax=x
amin=x
DoWhile__1__
Ifx>amaxThen
amax=x
EndIf
If__2__Then
amin=x
EndIf
x=InputBox("enterascore")
Loop
Print"max=";amax,"min=";amin参考答案1:
x>02:
x5.在窗体上画一个