VB题库程序填空1.docx
- 文档编号:5609112
- 上传时间:2022-12-29
- 格式:DOCX
- 页数:41
- 大小:25.14KB
VB题库程序填空1.docx
《VB题库程序填空1.docx》由会员分享,可在线阅读,更多相关《VB题库程序填空1.docx(41页珍藏版)》请在冰豆网上搜索。
VB题库程序填空1
程序填空
〖第1题〗『程序填空』(1分)(题号:
59)
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能:
输入一个数,若大于0,则显示"+";若小于0,
'则显示"-";若等于"0",则显示"零"。
'-------------------------------------------------------
PrivateSubCommand1_Click()
x=Val(Text1.Text)
SelectCasex
'**********SPACE**********
Caseis>0
Label1.Caption="+"
CaseIs<0
'**********SPACE**********
Label1.Caption="-"
'**********SPACE**********
Caseis=
Label1.Caption="零"
EndSelect
EndSub
答案:
1).CaseIs>0
2).Label1.Caption="-"
3).Case0或CaseElse或CaseIs=0
〖第2题〗『程序填空』(1分)(题号:
60)
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能:
输入任何一个英文字母x,
'若x的值为"a","c","d-f",则显示x的大写字母;
'若x的值为"m","o","p-z",则显示x的小写字母;
'若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**********
【?
】
EndSelect
EndSub
答案:
1).SelectCasex
2)."a","c","d"To"f"
3).Label1.Caption=Trim(x)+"a"或Label1.Caption=x+"a"
〖第3题〗『程序填空』(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 〖第4题〗『程序填空』(1分)(题号: 51) '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '功能: 下面的程序段用于建立文件并输出文件,文件内容如下: ' '***** '***** '***** '***** '***** '------------------------------------------------------- PrivateSubForm_Click() '**********SPACE********** Open"c: \1.txt"For【? 】As#1 Fori=1To5 Print#1,Spc(i);"*****" Nexti '**********SPACE********** 【? 】 '**********SPACE********** Open"c: \1.txt"For【? 】As#1 Fori=1To5 LineInput#1,x Printx Nexti Close#1 EndSub 答案: 1).Output 2).Close#1或Close 3).Input 〖第5题〗『程序填空』(1分)(题号: 49) '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '功能: 以下程序段用于求∑n! '------------------------------------------------------- PrivateSubForm_Click() DimsumAsInteger,nAsInteger n=InputBox("请输入一个正整数") sum=0 Fori=1Ton '**********SPACE********** sum=【? 】 Nexti Printsum EndSub PrivateFunctionmul(ByValxAsInteger) DimsAsInteger,iAsInteger s=1 '**********SPACE********** Fori=1To【? 】 s=s*i Nexti '**********SPACE********** 【? 】 EndFunction 答案: 1).sum★+★mul(i) 2).x 3).mul=s 〖第6题〗『程序填空』(1分)(题号: 61) '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '功能: 根据输入的学习成绩,分别显示优秀(90分以上),良好 '(75分以上),及格(60分以上),不及格几个等级。 '------------------------------------------------------- PrivateSubCommand1_Click() x=Val(Text1.Text) Ifx>=90Then Label1.Caption="优秀" '**********SPACE********** ElseIf【? 】Then Label1.Caption="良好" ElseIfx>=60Then '**********SPACE********** 【? 】 '**********SPACE********** 【? 】 Label1.Caption="不及格" EndIf EndSub 答案: 1).x>=75或75<=X 2).Label1.Caption="及格"或Label1="及格" 3).Else 〖第8题〗『程序填空』(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 〖第9题〗『程序填空』(1分)(题号: 56) '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '功能: 输入数字1-7,显示其对应是星期几(例: 输入1,显示星期日, '如果输入其它内容,一律显示"输入错误") '------------------------------------------------------- PrivateSubCommand1_Click() dimxasinteger dimyasstring x=val(text1.text) '**********SPACE********** 【? 】 case1 y="今天是星期日" case2 y="星期一" case3 y="星期二" case4 y="星期三" case5 y="星期四" case6 '**********SPACE********** 【? 】 case7 y="星期六" '**********SPACE********** 【? 】 y="输入错误" endselect Text2.Text=y EndSub 答案: 1).selectcasex 2).y="星期五" 3).CaseElse 〖第10题〗『程序填空』(1分)(题号: 41) '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '下面过程max()用于求3个数中最大值,利用这个过程求5个数中最大值。 '------------------------------------------------------- PrivateSubForm_Click() Print"5个数34、124、68、73、352的最大值是: " max1=max(34,124,68) '**********SPACE********** max1=【? 】 Printmax1 EndSub PublicFunctionmax(ByVala%,ByValb%,ByValc%) '**********SPACE********** If【? 】Then m=a Else m=b EndIf '**********SPACE********** If【? 】Then max=m Else max=c EndIf EndFunction 答案: 1).max(max1,73,352)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 题库 程序 填空
![提示](https://static.bdocx.com/images/bang_tan.gif)