〔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属性为mand1〕,然后编写如下两个事件过程:
PrivateSubmand1_Click()A=Text.Text+Text2.TextPrintaEndSubPrivateSubFormm_Load()Text1.Text=""Text2.Text=""EndSub程序运行后,在第一个文本框〔Text1〕和第二个文本框〔Text2〕中分别输入123和321,
然后单击命令按钮,如此输出结果为123321。
(6)阅读下面的程序段:
ForI=1To3i=1i=2i=3Forj=1ToIj=1to1j=1to2j=1to3Fork=jTo3k=1to3k=1to3k=2to3k=1to33A=A+1a=3a=3+3+2k=2to32Nextkk=3to31Nextja=8+3+2+1NextI执行上面的三重循环后,a的值为__14__。
(7)在窗体上画两个文本框〔其Name属性分别为Text1和Text2〕和一个命令按钮〔其Name属性为mand1〕,然后编写如下的事件过程:
PrivateSubmand1_Click()X=0DoWhilex<50X=(x+2)*(x+3)N=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSub程序执行后,单击命令按钮,在两个文本框中显示的值分别为2和72。
〔8〕设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是False
(9)在窗体上画一个名称为mandl的命令按钮,然后编写如下程序:
PrivateSubmand1_Click()StaticXAsIntegerStaticYAsIntegerClsY=1Y=Y+5X=5+XPrintX,YEndSub 程序运行时,三次单击命令按钮mandl后,窗体上显示的结果为156Static无法释放x=5+5+5y=1+5
(10)设有语句 x=InputBox("输入数值","0","示例")程序运行后,如果从键盘上输入数值10
并按回车键,变量X的值是字符串"10"
(11)在窗体上有一个文本框控件,要求每一秒钟在文本框中显示一次当前名称为TxtTime:
一个计时器控件,名称为Timerl的时间。
程序为:
PrivateSubTimer1_()TxtTime.text=TimeEndSub在下划线上应填入的容是Timer〔12〕假定有以下程序段:
Fori=1To33-1/1+1=3Forj=5To1Step-11-5/-1+1Printi*j3*5NextNext如此语句Printi*j的执行次数是15
〔13〕以下程序段的输出结果为(4)x=1y=4DoUntily>4x=x*yy=y+1LoopPrintx
〔14〕在窗体上面画一个文本框,然后编写如下事件过程:
PrivateSubForm_Activate()Text1.Text=""Text1.SetFocusFori=1to10Sum=Sum+iNextText1.Text=SumEndSub上述程序的运行结果是55
首相加末项*项数/2
〔15〕在窗体上画一个名称为mand1的命令按钮,然后编写如下事件过程:
PrivateSubmand1_Click()Forn=1To20IfnMod3<>0Thenm=m+n\3NextnPrintnEndSub程序运行后,如果单击命令按钮,如此窗体上显示的容是(21)
〔16〕设有如下程序:
PrivateSubmand1_Click()DimsumAsDouble,xAsDoublesum=0n=0Fori=1To5x=n/in=n+1sum=sum+xNextEndSub该程序通过For循环计算一个表达式的值,这个表达式是(1/2+2/3+3/4+4/5)
〔17〕下面程序运行后,窗体(Form1)中输出的结果是(TrueTrue)
PrivateSubForm_Load()Form1.AutoRedraw=True设置form1让他显示结果X=3:
y=5Printx=3;y=5x是否=3
〔18〕下面程序执行的结果是(579)
PrivateSubmand1_Click()A="123":
b="456"C=Val(a)+Val(b)2边是数字如此做加法PrintcEndSub
〔19〕假设i的初值为8,如此如下循环语句的循环次数为〔5〕次同样可以用公式:
〔终值-初值〕/步长+1DoWhilei<=17i=i+2Loop
〔20〕执行下面的程序段后,x的值为(21)x=5Fori=1To20Step2x=x+i\5NextI
〔21〕下面程序运行后,输出的值是(54)PrivateSubmand1_Click()J=1doWhileJ<5J=J+1A=A+J*JloopPrintAEndSub
〔22〕有如下程序:
PrivateSubFormKeyPress(KeyAsciiAsInteger)Form=1To3Forj=1TomFork=jTo3n=n+m+j-kNextkNextjNextmPrintnEndSub程序运行后,按任意键,n的值是(20)
〔23〕在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubmand1_Click()A=″12″B=″34″C=″56″PrintA+B+CEndSub程序运行后,单击命令按钮,输出结果是(123456)
〔24〕下面程序运行后输出的结果是(11020)PrivateSubmand1_Click()A=0ForM=1To10A=A+1∶B=0ForJ=1To10A=A+1∶B=B+2NextJ∶NextMPrintA;BEndSub
〔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的值为PrivateSubmand1_Click()Fori=1To9a=a+iNextix=Val(i)MsgBoxxEndSub_.参考答案10
〔27〕在窗体上有一个命令按钮,然后编写如下程序:
FunctionTrans(ByValnumAsLong)AsLongDimkAsLongk=1DoWhilenumnum=0时循环终止k=k*(numMod10)取个位10位百位相乘num=num\10LoopTrans=kPrintTransEndFunctionPrivateSubmand1_Click()DimmAsLongDimsAsLongm=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)AsStringDims1AsStringFori=1ToLen(S)s1=UCase(Mid(S,i,1))十s1NextiFun=s1EndFunction在窗体上画一个命令按钮,然后编写如下事件过程:
PrlvateSubmmldl_Click()DimStr1AsString,Str2AsStringStrl=inputbox("请输入一个字符串")Str2=Fun(Strl)PrintStr2EndSub程序运行后,单击命令按钮,如果在输入对话框中输入字符串"abcdefg",如此单击"确定"按钮后在窗体上的输出结果为(GFEDCBA)
8复选框的Value属性为__1__时,表示复选框被选中。
第六章
1用下面语句所定义的数组的元素个数是(9)Dima(-3to5)asinteger2要声明一个长度为256个字符的定长字符串变量str,正确的语句是(DimstrasString*256)
3设有数组声明语句:
OptionBase0DimB(-1To10,2To9,20)AsInteger如此数组B中共有(2016)个元素
4在窗体上画一个命令按钮,名称为mandl。
单击命令按钮时,执行如下事件过程:
PrlVateSubmandl-C1ickoa$="softwareandhardware"b$=Right(a$,8)c$=Mid(a$,1,8)Msgboxa$,,b$,c$,1EndSub如此在弹出的信息框的标题栏中显示的信息是(hardwafe)5为了去除列表框中的所有容,应使用的方法是(Clear)
程序填空
1.如下程序是判断一个整数(>=3)是否为素数,请补充完整。
DimnAsIntegern=InputBox("请输入一个整数(>=3)")k=Int(Sqr(n))i=2swit=0Whilei<=kAndswit=0IfnModi=0Then__1__Else:
参考答案1.swit=02.swit=1
__2__
EndIfloopIfswit=0ThenPrintn;"是一个素数。
"ElsePrintn;"不是一个素数。
"EndIf
2.下面程序是用来打印九九乘法表的,请补充完整。
DimiAsInteger,jAsInteger,Str1$Str1=""Fori=1To9Forj=1To9If__1__ThenStr1=Str1+Str$(j)+"×"+Str$(i)+"="+Str$(Val(ij))ElseStr1=Str1&Chr(13)__2__EndIfNextjNextiPrintStr1参考答案1:
j<=I2:
j>i
3.下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。
SubPR()RandomizeDima(10)Forj=1To10a(i)=Int(__1__)If__2__Thenk=k+1Printa(j)NextjPrintPrintk/10EndSub参考答案1:
(99*Rnd)+12:
a(j)Mod5=0
4.以下程序的功能是从键盘输入假设干个学生的考试成绩,统计并输出最高分和最低分,当输入负数时完毕输入,输出结果。
请补充完整如下程序段。
Dimx,amax,aminAsSinglex=InputBox("Enterascore")amax=xamin=xDoWhile__1__
Ifx>amaxThenamax=xEndIfIf__2__Thenamin=xEndIfx=InputBox("enterascore")LoopPrint"max=";amax,"min=";amin参考答案1:
x>02:
x5.在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubmand1_Click()x=0DoUntilx=-1a=InputBox("请输入第一个数字a的值")a=Val(A)b=InputBox("请输入第二个数字b的值")b=Val(b)x=InputBox("请输入第三个数字x的值")x=Val(x)a=a+b+xLoopPrintaEndSub在程序运行后,单击命令按钮,在对话框中分别输入5,4,8,5,8,-1,输出结果为__1__.参考答案1:
12
6.如下程序的功能是:
当x<50时,y=0.8×x;当50≤x≤100时,y=0.7×x;当x>100时,没有意义。
请填空。
PrivateSubmand1_Click() DimxAsSingle x=InputBox("请输入x的值!
")
__1__CaseIs<50 y=0.8*x Case50To100 y=0.7*x
__2__
Print"输入的数据出界!
" EndSelect Printx,y EndSub参考答案1:
SelectCasex2:
CaseElse
7.设有如下程序段:
a$="BeijingShanghai"b$=Mid(a$,InStr(a$,"g")+1)执行上面的程序段后,变量b$的值为__1__.参考答案1:
Shanghai
8执行下面程序,当单击窗体时,显示在窗体上第一行的容是__1__第二行的容是__2__
PrivateSubForm_Click()DimIAsInteger,SumAsIntgerForI=0.5To8