VB上机练习题1.docx
- 文档编号:27351084
- 上传时间:2023-06-29
- 格式:DOCX
- 页数:25
- 大小:20.39KB
VB上机练习题1.docx
《VB上机练习题1.docx》由会员分享,可在线阅读,更多相关《VB上机练习题1.docx(25页珍藏版)》请在冰豆网上搜索。
VB上机练习题1
〖第1题〗『程序填空』(1分)(题号:
532)
【程序填空】''题目:
输入n个数,n由用户输入。
'程序的功能是将输入的n个数反向输出?
请在【】处填入正确的
PrivateSubForm_Load()
DimnAsInteger
DimkAsInteger
DimmAsInteger
DimhAsInteger
DimtAsInteger
Show
Dima(100)AsSingle
n=Val(InputBox("输入个数n"))
Print"处理前数据:
"
'**********SPACE**********
Fork=1To【?
】
a(k)=Val(InputBox("请输入第"&k&"个数"))
Printa(k);
Nextk
'**********SPACE**********
m=Int(【?
】)
Fork=1Tom
h=n-k+1
'**********SPACE**********
t=a(h):
【?
】:
a(k)=t
Nextk
Print"处理的结果:
"
Fork=1Ton
Printa(k);
Nextk
EndSub
答案:
1).n
2).n/2
3).a(h)=a(k)
〖第2题〗『程序填空』(1分)(题号:
498)
'【程序填空】
''题目:
本程序执行功能为,命令按钮单击一次后,窗体上输出结果为:
'36
'25
'16
'9
请在【】处填入正确的内容
PrivateSubCommand1_Click()
Dimxx(6)AsInteger
Dimk%
OpenApp.Path&"\al.dat"ForOutputAs#1
ForI=1To6
'**********SPACE**********
j=【?
】
Print#1,j
NextI
Close#1
OpenApp.Path&"\a1.dat"ForInputAs#2
k=0
DoWhileNotEOF
(2)
'**********SPACE**********
k=【?
】
Input#2,xx(k)
Loop
Close#2
'**********SPACE**********
ForI=kTok/2Step【?
】
Form1.Printxx(I)
NextI
EndSub
答案:
1).I*I
2).k+1或1+k
3).-1
〖第3题〗『程序填空』(1分)(题号:
501)
'【程序填空】
''题目:
本程序执行后,最终在窗体上打印数字7。
请在【】处填入正确的内容
PrivateSubCommand1_Click()
DimaAsString
'**********SPACE**********
OpenApp.Path&"\abc.bat"For【?
】As#1
n=8
ForI=1Ton
Print#1,I+1
NextI
Close#1
'**********SPACE**********
OpenApp.Path&"\abc.bat"For【?
】As#1
ForI=1Ton
Input#1,a
IfIMod5=0Then
'**********SPACE**********
PrintCInt(a)+【?
】
EndIf
NextI
Close#1
EndSub
答案:
1).Output
2).Input
3).1
〖第4题〗『程序填空』(1分)(题号:
46)
'【程序填空】
''题目:
从键盘输入学生分数,统计学生总人数和各分数段人数,
'即优秀(90-100)、良好(80-89)、中等(70-79)、
'及格(60-69)、不及格(60以下)的人数。
PrivateSubForm_Click()
Dimscore%,n1%,n2%,n3%,n4%,n5%
msg="请输入分数(-1结束)"
msgtitile="输入数据"
score=Val(InputBox(msg,msgtitle))
'**********SPACE**********
While【?
】
total=total+1
'**********SPACE**********
SelectCase【?
】
CaseIs>=90
n1=n1+1
CaseIs>=80
n2=n2+1
CaseIs>=70
n3=n3+1
CaseIs>=60
n4=n4+1
CaseElse
n5=n5+1
'**********SPACE**********
【?
】
score=Val(InputBox(msg,msgtitle))
Wend
Printn1,n2,n3,n4,n5,total
EndSub
答案:
1).score>=0★And★score<=100或0<=score★And★score<=100或0<=score★And★100>=score或score>=0★And★100>=score
2).score
3).EndSelect
〖第5题〗『程序填空』(1分)(题号:
503)
'【程序填空】
''题目:
用户界面如图所示,用实现左右两个组合框中数据的左移和右移功能。
'程序开始运行时,在左边组合框中生成10个由小到大排列的随机三位
'正整数(假设在设计阶段该组合框的Sorted属性值已设置为True),现要求完成:
'
(1)单击">>"钮,左边组合框中的10个数全部移动到右边组合框,并由大到
'小排列,同时使"<<"钮能响应,">>"钮不能响应。
'
(2)单击"<<"钮,右边组合框中的10个数全部移到左边的组合框,并由小到
'大排列,同时使">>"钮能响应,"<<"钮不能响应;
'(3)单击"结束"按钮,结束程序运行。
请在【】处填入正确的内容
PrivateSubcmdLeft_Click()
DimiAsInteger
Fori=0TocomboRight.ListCount-1
comboLeft.AddItemcomboRight.List(i)
Nexti
comboRight.Clear
'**********SPACE**********
【?
】=False
'**********SPACE**********
【?
】=True
EndSub
PrivateSubcmdRight_Click()
DimiAsInteger
'**********SPACE**********
Fori=0To【?
】-1
comboRight.AddItemcomboLeft.List(i)
Nexti
'**********SPACE**********
【?
】.Clear
cmdRight.Enabled=False
cmdLeft.Enabled=True
EndSub
PrivateSubCommand3_Click()
End
EndSub
PrivateSubForm_Load()
DimiAsInteger
Label1.Caption="组合框1"
Label2.Caption="组合框2"
cmdRight.Caption=">>"
cmdRight.Enabled=True
cmdLeft.Caption="<<"
cmdLeft.Enabled=False
cmdExit.Caption="结束"
comboLeft.Text=""
Fori=1To10
comboLeft.AddItemInt(Rnd*900)+100
Nexti
comboRight.Text=""
EndSub
答案:
1).cmdLeft.Enabled
2).cmdRight.Enabled
3).comboLeft.ListCount
4).comboLeft
〖第6题〗『程序填空』(1分)(题号:
511)
'【程序填空】
''题目:
程序输出结果为:
n=3x=42y=9
请在【】处填入正确的内容
PrivateSubCommand1_Click()
Dimn,x,yAsInteger
'**********SPACE**********
n=0:
x=【?
】:
y=0
DoWhilex<20
'**********SPACE**********
n=n【?
】
y=x+y
x=x*(x+1)
'**********SPACE**********
【?
】
Form1.Print"n="&Str(n)
Form1.Print"x="&Str(x)
Form1.Print"y="&Str(y)
EndSub
答案:
1).1
2).+1
3).Loop
〖第7题〗『程序填空』(1分)(题号:
523)
'【程序填空】
'题目:
下面的程序用于求三个数中最大数
'请在【】处填入正确的内容
PrivateSubCommand1_Click()
Dima,b,c,max,minAsInteger
a=Val(InputBox("请输入第一个数:
"))
b=Val(InputBox("请输入第二个数:
"))
c=Val(InputBox("请输入第三个数:
"))
'**********SPACE**********
【?
】=a
min=a
'**********SPACE**********
Ifb>maxThen【?
】
Ifb '**********SPACE********** If【? 】Thenmax=c' Ifc Print"最大数为: ";max Print"最小数为: ";min EndSub 答案: 1).max 2).max=b 3).c>max或max 〖第8题〗『程序填空』(1分)(题号: 507) '【程序填空】 '题目: 本程序实现功能: 将顺序文本文件“MYFILE.TXT”的 '内容一个字符一个字符地读入文本框txtTest中 请在【】处填入正确的内容 PrivateSubForm_Click() DimInputDataAsString*1 txtTest.Text="" '**********SPACE********** OpenApp.Path&"\MYFILE.TXT"For【? 】As#1 '**********SPACE********** DoWhile【? 】EOF (1) Input#1,InputData '**********SPACE********** txtTest.Text=txtTest.Text+【? 】 Loop Close#1 EndSub 答案: 1).Input 2).Not 3).InputData 〖第9题〗『程序填空』(1分)(题号: 50) '【程序填空】 ''题目: 从键盘上输入一串字符,以"? "结束,统计输入字符中的 '大、小写字母和数字的个数。 PrivateSubForm_Click() Dimch$,n1%,n2%,n3% n1=0 n2=0 n3=0 ch=InputBox("请输入一个字符") '**********SPACE********** While【? 】 SelectCasech Case"a"To"z" n1=n1+1 '**********SPACE********** Case【? 】 n2=n2+1 Case"0"To"9" n3=n3+1 EndSelect ch=InputBox("请输入一个字符") '**********SPACE********** 【? 】 Printn1,n2,n3 EndSub 答案: 1).ch★<>★"? " 2)."A"To"Z" 3).Wend 〖第10题〗『程序填空』(1分)(题号: 62) '【程序填空】 ''题目: 输入任何一个英文字母x,若x的值为"a","c","d-f",则 '显示x的大写字母;若x的值为"m","o","p-z",则显示x的 '小写字母;若为其它的值,则显示xa(如输入的X的值是 'g,则显示ga)。 PrivateSubCommand1_Click() x=Text1.Text '**********SPACE********** 【? 】 Case"a","c","d"To"f" Label1.Caption=UCase(x) '**********SPACE********** Case【? 】 Label1.Caption=LCase(x) '**********SPACE********** 【? 】 Label1.Caption=Trim(x)+"a" EndSelect EndSub 答案: 1).SelectCasex 2)."m","o","p"To"z" 3).CaseElse 〖第11题〗『程序填空』(1分)(题号: 65) '【程序填空】 '题目: 根据输入的学习成绩,分别显示优秀(90分以上),良好(75 '分以上),及格(60分以上),不及格几个等级。 PrivateSubCommand1_Click() x=Val(Text1.Text) Ifx>=90Then Print"优秀" '**********SPACE********** 【? 】 Print"良好" ElseIfx>=60Then '**********SPACE********** 【? 】 '**********SPACE********** 【? 】 Print"优秀" EndIf EndSub 答案: 1).ElseIfx>=75Then或ElseIf75<=xThen 2).print"及格" 3).Else 〖第12题〗『程序填空』(1分)(题号: 60) '【程序填空 '题目: 输入任何一个英文字母x, '若x的值为"a","c","d-f",则显示x的大写字母; '若x的值为"m","o","p-z",则显示x的小写字母; '若为其它的值,则显示xa(如输入的X的值是g,则显示ga)。 PrivateSubCommand1_Click() x=Text1.Text '**********SPACE********** 【? 】 '**********SPACE********** Case【? 】 Label1.Caption=UCase(x) Case"m","o","p"To"z" Label1.Caption=LCase(x) CaseElse '**********SPACE********** 【? 【 EjdSelect EndSub 答案: 1).SelectCasex 2)."a","c","d"To"f" 3).Label1.CapÓion=★Trim(x)★+★"a" 〖第13题〗『程序填空』(1分)(题号: 495) '【程序偫牺】 '题目: 本程序将利用文本框txtInput输入的一行字符串中的所有 '字母加密,加密,加密结果在文本框txtCode中显示。 加密方法如 '下: 将每个字母的序号移动5个位置,即"A"->"F","a->"f", '"B"->"G"......"Y"->"D","Z"->"E".程序段如下: '请在【】处填兡正确的内容 PrivateSubForm_Click() DilstrInputAsString*70'输入字符串 DimCodeASString*70'加密结果 DimstrTempAsString*1'当前处理的字符 DimiAsIntager DimLengthAsInteger'字符串长度 DimiAscAsIn⁴ege2'第i个字Ascii码 '**********SPACE********(* 【? 】叆字符串 i=1 Code="" '**********SPACE********** 【? 】'去掉字符串右边的空格,求真正的长度 DoWhile(i<=Length) '**********SPACE********** 【? 】'取第i个字符 If(strTemp>="A"AndstrTemp<="Z")Then iAsc=Asc(strTemp)+5 IfiAsc>Asc("Z")TheniAsc=iAsc-26 Code=Left$(Code,i-1)+Chr$(iAsc) ElseIf(strTemp>="a"AndstrTemp<="z")Then iAsc=Asc(strTemp)+5 IfiAsc>Asc("z")TheniAsc=iAsc-26 Code=Left$(Code,i-1)+Chr$(iAsc) Else Code=Left$(Code,i-1)+strTemp EndIf i=i+1 Loop '**********SPACE********** 【? 】'显示加密结果 EndSub 答案: 'strInput=txtInput.Text 'Length=Len(RTrim(strInput)) 'strTemp=Mid(strInput,i,1) 'txtCode.Text=CodetxtCode=Code 答案: 1).strInput=txtInput或strInput=txtInput.Text 2).Length=Len(RTrim(strInput)) 3).strTemp=Mid(strInput,i,1) 4).txtCode.Text=Code或txtCode=Code 〖第14题〗『程序填空』(1分)(题号: 531) '【程序填空】 ''题目: 打印出100-999之间的所有水仙花数 '如果一个数的百位,十位,个位数的立方和等于这个数本身 '则这个数为水仙花数 请在【】处填入正确的内容 PrivateSubCommand1_Click() DimiAsInteger,aAsInteger,bAsInteger,cAsInteger '**********SPACE********** Fori=100To【? 】 '**********SPACE********** a=Int(i/【? 】) b=Int((i-100*a)/10) '**********SPACE********** c=i-100*a-【? 】 Ifa*a*a+b*b*b+c*c*c=iThen Printi EndIf Nexti EndSub 答案: 1).999 2).100 3).10*b或b*10 〖第15题〗『程序填空』(1分)(题号: 36) '【程序填空】 ''题目: 以下程序的功能如(图1)。 PrivateSubForm_Click() Dima%,b%,c%,d! Dimx1,x2 Dimp,q,r a=InputBox("请输入a的值") b=InputBox("请输入b的值") c=InputBox("请输入c的值") d=b*b-4*a*c p=-b/(2*a) Ifd>=0Then '**********SPACE********** If【? 】Then r=Sqr(d)/(2*a) x1‽p+r x2=p-r Else x1=p x2=p '**********SPACE********** 【? 】 Print"x1=": x1,"x2=";x2 '******* **SPACE********** 【? 】 q=Sqr(-d)/(2*a) Print"x1=";p;"+";q;"i","x2=";p;"-";q;"i" EndIf EndSub 答案: 1).d>0或0 2).EndIf 3).Else 〖第16题〗『程序填空』(1分)(题号: 47) '【程序填空】 '题目: 以下程序段用于实现: 输入两个正整数m和n,求其最大 '公因数和最小公倍数。 PrivateSubForm_Click() Dima%,b%,num1%,num2%,temp num1=InputBox("请输入一个正整数") num2=InputBox("请输入一个正整数") '**********SPACE*********
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 上机 练习题