高中信息技术学业水平测试 VB操作题.docx
- 文档编号:28524615
- 上传时间:2023-07-18
- 格式:DOCX
- 页数:17
- 大小:74.15KB
高中信息技术学业水平测试 VB操作题.docx
《高中信息技术学业水平测试 VB操作题.docx》由会员分享,可在线阅读,更多相关《高中信息技术学业水平测试 VB操作题.docx(17页珍藏版)》请在冰豆网上搜索。
高中信息技术学业水平测试VB操作题
Vb算法程序题汇总
1、输入5个数并排序(选择排序)
2、判读输入得三条边能否构成三角形
3、图形打印(倒三角)
4、判断就是否为闰年
5、产生随机数
6、输入消费金额,计算出实收金额
7、输入用电量,计算出输出电费
8、求出100以内某数得阶乘
9、程序改错,求100以内奇数之与
10、输入学生成绩,显示相应等级(select case结构)
11、图形打印(三角形)
12、用字符串函数Ucase()与转换函数Asc()填空
13、对数组赋值并求与
14、利用函数,把abcd变成BCD
15、输入10个数,求最大值最小值与平均值
16、输入公里数,计算车费
17、已知两边与夹角,求三角形面积
18、输入学生成绩,显示相应等级(selectcase结构)
19、学生成绩转换(selectcase结构)
20、求100以内能够被19整除得个数
1、完善程序代码实现当单击"输入并排序"按钮后,从键盘输入5个数,保存在数组中,并显示在窗体上,然后把这5’个数按照从小到大得顺序排列并显示在窗体上。
PrivateSub mand1_Click()
DimxAsLong
Dim nAsInteger, iAsInteger,sAsLong
Dima(1To5)AsSingle
Fori=1To5
a(i) = Val(InputBox(”请在输入第" +Str(i) + ”/5个数"))
Printa(i);
Nexti
Print
Fori=1To___①__
Min= a(i):
m=i
Forx=i +1 To 5
If___②___ThenMin=a(x):
m=x
Nextx
k =a(i):
____③___:
a(m) =k
Nexti
Print "从小到大排序后得数据为:
”
For i= 1To5
Printa(i);
Nexti
EndSub
2、完善程序代码实现:
输入三角形得三条边长,首先判断给出得三条边能否构成三角形(三角形得两边之与大于第三边),如可以,则计算并输出该三角形得面积;否则输出”不能构成三角形”.
PrivateSub mand1_Click()
Dima,b,c,q,sAsSingle
a =Val(Text1、Text)
b= Val(Text2、Text)
c = Val(Text3、Text)
q= (a+ b +c)/ 2
If (a +b) <=cOr(a+c)<= b___①___(b+c)<=a Then
Print”不能构成三角形"
Else
s = ___②___(q *(q-a) * (q -b)* (q- c))
Print”三角形得面积就是”& s
____③____
EndSub
3、删除①②③及下划线,填上正确得代码,画出如下所示得图形,请不要更改原程序结构。
*******
*****
***
*
Private Submand1_Click()
Dimi,j, kAsInteger
Fori =4To1Step ___①___
Forj= 1To___②___Step1
Print”*"; '打印符号*
____③__
Print ’换行
Fork =i - 3 To 1
Print””;’打印空格
Nextk
Nexti
End Sub
4、判断某年就是否为闰年得方法就是如果该年份得数值能被4整除但不能被100整除,或者能被400整除则该年份就是闰年。
PrivateSubmand1_Click()
DimiAsLong
i=___①____
IfiMod4=0 And___②____Then
Label2、Caption=”该年就是闰年!
"
Else
Label2、Caption ="该年不就是闰年!
"
___③____
EndSub
5、(1)删除①②及下划线,填空完成程序.(2)完善程序代码实现:
手动输入0到10以内得一个整数,如果这个数字正好等于随机产生得整数(0到10之内),’那么输出"恭喜您猜中了!
",否则输出”谢谢,重在参与!
"。
PrivateSubmand1_Click()
Dim i, jAsInteger
Randomize
i= ___①___
j= Val(InputBox("请您输入一个0-10之间得整数:
”))
Print ”您选中得数字为:
"&j
Print”随机产生得数为:
” &i
If____②___Then
Print"恭喜您猜中了!
"
Else
Print"谢谢,重在参与!
"
EndIf
EndSub
6、凡在商场消费满500元以上(含500元),享受9折优惠;消费满1000元以上(含1000元),享受8折优惠;消费在500元以下不优惠。
输入消费金额,计算出实收金额。
注:
请不要更改原程序结构,删除①、②、③及下划线,并在对应位置填写正确得代码。
Private Sub mand1_click()
Dimm AsSingle ’消费金额
m=___①___
Ifm〉=1000 Then
Text2、Text=____②___
Else
If__③___ Then
Text2、Text=m*0、9
Else
Text2、Text=m
EndIf
EndIf
EndSub
7、
在Text1中输入每月用电量,单击按钮”应收电费"后,在Text2中输出电费。
收费标准:
家庭每月用电量不超过260度按原价1、3元/度收费;超过260度,不超过400度每度电费用增加0、1元;超过400度后每度电费用增加0、3元.
PrivateSubmand1_Click()
DimiAsSingle
i =____①___
Ifi>=0Andi<=260 Thens= ____②____
Ifi 〉260And i<=400Thens=i*(1、3+0、1)
Ifi>400Thens=i *(1、3 +0、3)
____③___ =s&"元”
EndSub
8、完善程序代码实现:
任意输入一个1到100以内得整数,并求出它得阶乘.
PrivateSubmand1_Click()
DimiAs Integer
Dim jAsInteger
DimsAsDouble
s =___①___
i=Val(InputBox("请您输入一个1到100以内得整数"))
Forj=1Toi
s =___②__
___③___
Print i&"得阶乘等于"&s
EndSub
9、下面得程序就是求100以内所有奇数之与,程序中有三处错误,请更正。
PrivateSubmand1_Click()
Dims AsInteger
Dim iAsInteger
s =0
Fori=1To99Step1
s=s*i
End If
Print "s=" &s
EndSub
10、在Text1中输入学生得成绩,点击“转换”按钮后,转换成相应得等级并显示在Label1中!
PrivateSubmand1_Click()
DimexamAsInteger
exam=____①___
SelectCase ____②____
CaseIs〈60
Label1、Caption=”该学生得成绩等级为:
D"
Case60To 69
Label1、Caption ="该学生得成绩等级为:
C”
Case 70To84
Label1、Caption="该学生得成绩等级为:
B"
Case85To100
Label1、Caption=”该学生得成绩等级为:
A”
CaseElse
Label1、Caption="输入得数据不合法”
____③___
End Sub
11、
'删除程序中得①②③及下划线,填空完成程序,运行程序使能打印下面所示得图案.
'
'
'
'
'
'
’注:
请不要更改原程序结构,删除①、②、③及下划线,并在对应位置填写正确得代码
PrivateSubmand1_Click()
DimiAsInteger
Dim jAsInteger
Fori= 1To__①___
PrintTab(10);
Forj=1To___②_____
Print ____③_____
Nextj
Print
Next i
EndSub
12、'删除①②③及下划线,利用字符串函数Ucase()与转换函数Asc(),填空完成程序。
'注:
请不要更改原程序结构,删除①、②、③及下划线,并在对应位置填写正确得代码。
PrivateSubForm_Click()
Dim str1AsString,str2AsString
Dimstr3As String,i AsInteger
str1=”f”
For i=1To____①______
str2= UCase(str1)
str1= str2& str1
str3=str3&str1
str1=Chr(Asc(str1)+____②_____)
______③_______
Printstr3
End Sub
13、
’删除①②③及下划线,填空完成程序.
'程序运行后,单击“初始值”命令按钮对数组a得各元素赋值;
’单击“求与”命令按钮,求出数组a得各元素之与,并在Text1中显示出来
’注:
请不要更改原程序结构,删除①、②、③及下划线,并在对应位置填写正确得代码。
Dim a(4,3) AsInteger
Dimi,jAs Integer
Private Submand1_Click()
Fori=0To3
Forj = 0To 2
_____①_____=i+j
Nextj
Next i
End Sub
Private Submand2_Click()
Forj=0To 3
Fori=0To2
s =s+_____②______
Nexti
Nextj
Text1、Text =______③_______
EndSub
14、
’(1)删除①②③④及下划线,填空完成程序.
'
(2)程序运行后,从键盘上输入“abcd”,单击确定按钮后,在标签Label1中显示出“BCD”
’注:
请不要更改原程序结构,删除①、②、③、④及下划线,并在对应位置填写正确得代码。
PrivateSubForm_Load()
Dimstrtext AsString
strtext =____①____("请输入”)
strtext= ____②____(Trim(____③____),3)
Label1、Caption=____④____(strtext)
EndSub
15、
'
(1)删除①②③及下划线,填空完成程序.
'(2)从键盘输入10个100以内得整数,单击命令按钮后在窗体上输出其中得最大数,最小数与平均值
'注:
请不要更改原程序结构,删除①、②、③及下划线,并在对应位置填写正确得代码。
PrivateSub mand1_Click()
Dim x As Integer
Dimmax,min, sumAsInteger
x=InputBox("请输入您得数:
")
Print"您输入得数有:
" &x; "、";
max=x:
min=x:
sum=x
Fori =2To 10
x =InputBox("请输入您得数:
"):
Printx;
sum=sum +x
If ____①____Then Max= x
If____②_____ThenMin= x
Nexti
Print"平均值”& _____③_______
Print”最大数"&max, "最小数"&min
EndSub
16、
’
(1)删除①②③及下划线,填空完成程序。
’
(2)输入车程公里数,单击按钮“应收车费”后,在Label1输出车程,在Label2中输出车费。
'收费标准:
3公里内(包括3公里)起步价12元;
'超过3公里,但10公里内(包括10公里),则3公里内收费12元,超出部分每公里2元;
’如果超过10公里,则10公里内收费26元,超出部分每公里3元.其程序实现如下:
'注:
请不要更改原程序结构,删除①、②、③及下划线,并在对应位置填写正确得代码。
PrivateSubmand1_Click()
x =Val(Text1、Text)
Ifx〉 0Andx〈=3Then _____①_____
If x>3 And _____②_____Theny= 12 +(x -3)*2
Ifx 〉10 Theny=_____③____*3
Ifx 〈= 0 Theny=0
Label1、Caption=x&"公里”
Label2、Caption=y&”元"
EndSub
17、
’
(1)删除①②③及下划线,填空完成程序.
'
(2)已知三角形得两边分别为15、18,它们得夹角为41度,圆周率取3、14,求该三角形得面积.
'注:
请不要更改原程序结构,删除①、②、③及下划线,并在对应位置填写正确得代码
Private Submand1_Click()
a=15
b= ___①___
s= 0、5* a*b *___②____(41*3、14/180)
____③____= s
EndSub
18、
'
(1)删除①②③④及下划线,填空完成程序。
'
(2) 在文本框Text1中输入成绩,点击"等级"按钮时,文本框里就显示相应得等级.具体等级划分如下:
' 90分以上为"优",80到89分为"好",70到79分为”良”,60到69分为”及格”,60分以下为"不及格”.
’注:
请不要更改原程序结构,删除①、②、③、④及下划线,并在对应位置填写正确得代码。
PrivateSubmand1_Click()
DimxAs Integer, gradeAs String
x= _____①________
________②______
Case90To100
grade="优”
Case80To89
grade=”好"
Case70To 79
grade = "良"
Case60To69
grade= "及格"
CaseIs <60
_______③_______
CaseElse
MsgBox"请重新输入"
End Select
Print”该学生成绩为:
"+_____④_____
EndSub
19、
’在Text1中输入学生得成绩,点击“转换”按钮后,转换成相应得等级并显示在Label1中!
PrivateSubmand1_Click()
DimexamAsInteger’定义变量exam用来存放成绩
’判断输入得成绩就是否为数值!
IfIsNumeric(Text1、Text) = FalseThen
IfMsgBox(”您输入得成绩必须为数字!
",vbInformation +vbOKOnly)=vbOK Then
ExitSub
EndIf
End If
’判断输入得成绩就是否合法
exam=Val(Text1、Text)
If exam〈0Orexam> 100 Or Len(exam)=0Then
IfMsgBox(”您输入得成绩不正确!
”, vbInformation+vbOKOnly)= vbOKThen
Exit Sub
EndIf
EndIf
'将输入得成绩转换为相应得等级
SelectCase__①__
Case__②__
Label1、Caption="该学生得成绩等级为:
D"
Case__③__
Label1、Caption= "该学生得成绩等级为:
C"
Case__④__
Label1、Caption =”该学生得成绩等级为:
B"
Case__⑤__
Label1、Caption=”该学生得成绩等级为:
A”
__⑥__
EndSub
20、
'(1)删除①②③及下划线,填空完成程序。
’
(2)点击“计算”按钮后,在窗体上输出“1+2+……+100"得与,并求出1到100之间能被19整除得整数得个数
'注:
请不要更改原程序结构,删除①、②、③及下划线,并在对应位置填写正确得代码.
PrivateSubmand1_Click()
DimiAsInteger,xAs Integer
Dims AsInteger
s= 0
x =0
Fori = 1To100
______①______
If _____②____Thenx=_____③_____
Nexti
Print "1+2+3+4、、、+100=”&s
Print"1到100之间能被19整除有:
"& x &"个数"
End Sub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 高中信息技术学业水平测试 VB操作题 高中 信息技术 学业 水平 测试 VB 操作