高中信息技术学业水平测试VB操作题

1、Vb算法 程序题汇总目录1、输入5个数并排序（选择排序）2、判读输入的三条边能否构成三角形3、图形打印 （倒三角）4、判断是否为闰年5、产生随机数6、输入消费金额，计算出实收金额7、输入用电量，计算出输出电费8、求出100以内某数的阶乘9、程序改错，求100以内奇数之和10、输入学生成绩，显示相应等级 （select case结构）11、图形打印 （三角形）12、用字符串函数Ucase()和转换函数Asc()填空13、对数组赋值并求和14、利用函数，把abcd变成BCD15、输入10个数，求最大值最小值和平均值16、输入公里数，计算车费17、已知两边和夹角，求三角形面积18、输入学生成绩，显示

2、相应等级 （select case结构）19、学生成绩转换 （select case结构）20、求100以内能够被19整除的个数1、完善程序代码实现当单击"输入并排序"按钮后，从键盘输入5个数，保存在数组中，并显示在窗体上，然后把这5'个数按照从小到大的顺序排列并显示在窗体上。Private Sub Command1_Click() Dim x As Long Dim n As Integer, i As Integer, s As Long Dim a(1 To 5) As Single For i = 1 To 5 a(i) = Val(InputBox(&qu

3、ot;请在输入第" + Str(i) + "/5个数") Print a(i); Next i Print For i = 1 To _ Min = a(i): m = i For x = i + 1 To 5 If _ Then Min = a(x): m = x Next x k = a(i): _: a(m) = k Next i Print "从小到大排序后的数据为：" For i = 1 To 5 Print a(i); Next iEnd Sub2、完善程序代码实现:输入三角形的三条边长，首先判断给出的三条边能否构成三角形（三角形的

4、两边之和大于第三边），如可以，则计算并输出该三角形的面积；否则输出"不能构成三角形"。Private Sub Command1_Click()Dim a, b, c, q, s As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) q = (a + b + c) / 2 If (a + b) <= c Or (a + c) <= b _ (b + c) <= a Then Print "不能构成三角形" Else s = _(q * (q - a) *

5、 (q - b) * (q - c) Print "三角形的面积是" & s _End Sub3、删除及下划线，填上正确的代码，画出如下所示的图形，请不要更改原程序结构。* * *Private Sub Command1_Click()Dim i, j, k As Integer For i = 4 To 1 Step _ For j = 1 To _ Step 1 Print "*" '打印符号* _ Print '换行 For k = i - 3 To 1 Print " " '打印空格 Next

6、k Next iEnd Sub4、判断某年是否为闰年的方法是如果该年份的数值能被4整除但不能被100整除，或者能被400整除则该年份是闰年。Private Sub Command1_Click() Dim i As Long i = _ If i Mod 4 = 0 And _ Then Label2.Caption = "该年是闰年！" Else Label2.Caption = "该年不是闰年！" _End Sub5、（1）删除及下划线，填空完成程序。（2）完善程序代码实现:手动输入0到10以内的一个整数，如果这个数字正好等于随机产生的整数（0到10

7、之内），'那么输出"恭喜您猜中了！"，否则输出"谢谢，重在参与！"。Private Sub Command1_Click() Dim i, j As Integer Randomize i = _ j = Val(InputBox("请您输入一个0-10之间的整数:") Print "您选中的数字为：" & j Print "随机产生的数为：" & i If _ Then Print "恭喜您猜中了！" Else Print "谢谢，重在参与

8、！" End IfEnd Sub6、凡在商场消费满500元以上(含500元)，享受9折优惠；消费满1000元以上(含1000元)，享受8折优惠；消费在500元以下不优惠。输入消费金额，计算出实收金额。注：请不要更改原程序结构，删除、及下划线，并在对应位置填写正确的代码。Private Sub command1_click() Dim m As Single '消费金额 m = _ If m >= 1000 Then Text2.Text = _ Else If _ Then Text2.Text = m * 0.9 Else Text2.Text = m End If

9、End IfEnd Sub7、在Text1中输入每月用电量，单击按钮"应收电费"后，在Text2中输出电费。收费标准：家庭每月用电量不超过260度按原价1.3元/度收费；超过260度，不超过400度每度电费用增加0.1元；超过400度后每度电费用增加0.3元。Private Sub Command1_Click() Dim i As Single i =_ If i >= 0 And i <= 260 Then s = _ If i > 260 And i <= 400 Then s = i * (1.3 + 0.1) If i > 400 T

10、hen s = i * (1.3 + 0.3) _ = s & "元"End Sub8、完善程序代码实现:任意输入一个1到100以内的整数，并求出它的阶乘。Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim s As Double s = _ i = Val(InputBox("请您输入一个1到100以内的整数") For j = 1 To i s = _ _ Print i & "的阶乘等于" & sEnd Sub9、下面的程序

11、是求100以内所有奇数之和,程序中有三处错误，请更正。Private Sub Command1_Click() Dim s As Integer Dim i As Integer s = 0 For i = 1 To 99 Step 1 s = s * i End If Print "s=" & sEnd Sub10、在Text1中输入学生的成绩，点击“转换”按钮后，转换成相应的等级并显示在Label1中！Private Sub Command1_Click()Dim exam As Integerexam = _ Select Case _ Case Is <

12、; 60 Label1.Caption = "该学生的成绩等级为：D" Case 60 To 69 Label1.Caption = "该学生的成绩等级为：C" Case 70 To 84 Label1.Caption = "该学生的成绩等级为：B" Case 85 To 100 Label1.Caption = "该学生的成绩等级为：A" Case Else Label1.Caption = "输入的数据不合法" _End Sub11、'删除程序中的及下划线，填空完成程序，运行程序使能

13、打印下面所示的图案。'''''''注：请不要更改原程序结构，删除、及下划线，并在对应位置填写正确的代码Private Sub Command1_Click() Dim i As Integer Dim j As Integer For i = 1 To _ Print Tab(10); For j = 1 To _ Print _ Next j Print Next iEnd Sub12、'删除及下划线， 利用字符串函数Ucase()和转换函数Asc()，填空完成程序。'注：请不要更改原程序结构，删除、及下划线，并在对应位

14、置填写正确的代码。Private Sub Form_Click() Dim str1 As String, str2 As String Dim str3 As String, i As Integer str1 = "f" For i = 1 To _ str2 = UCase(str1) str1 = str2 & str1 str3 = str3 & str1 str1 = Chr(Asc(str1) + _) _ Print str3End Sub13、'删除及下划线，填空完成程序。'程序运行后，单击“初始值”命令按钮对数组a的各元素

15、赋值；'单击“求和”命令按钮，求出数组a的各元素之和，并在Text1中显示出来'注：请不要更改原程序结构，删除、及下划线，并在对应位置填写正确的代码。Dim a(4, 3) As IntegerDim i, j As IntegerPrivate Sub Command1_Click()For i = 0 To 3 For j = 0 To 2 _ = i + j Next jNext iEnd SubPrivate Sub Command2_Click()For j = 0 To 3 For i = 0 To 2 s = s + _ Next iNext jText1.Tex

16、t = _End Sub14、'（1）删除及下划线，填空完成程序。'（2）程序运行后，从键盘上输入“abcd”，单击确定按钮后，在标签Label1中显示出“BCD”'注：请不要更改原程序结构，删除、及下划线，并在对应位置填写正确的代码。Private Sub Form_Load()Dim strtext As Stringstrtext = _("请输入")strtext = _(Trim(_), 3)Label1.Caption = _(strtext)End Sub15、'（1）删除及下划线，填空完成程序。'（2）从键盘输入10个

17、100以内的整数，单击命令按钮后在窗体上输出其中的最大数，最小数和平均值'注：请不要更改原程序结构，删除、及下划线，并在对应位置填写正确的代码。Private Sub Command1_Click() Dim x As Integer Dim max, min, sum As Integer x = InputBox("请输入您的数：") Print "您输入的数有：" & x; "、" max = x: min = x: sum = x For i = 2 To 10 x = InputBox("请输入您的

18、数："): Print x; sum = sum + x If _Then Max = x If _Then Min = x Next i Print "平均值" & _ Print "最大数" & max, "最小数" & minEnd Sub16、'（1）删除及下划线，填空完成程序。'（2）输入车程公里数，单击按钮“应收车费”后，在Label1输出车程，在Label2中输出车费。'收费标准：3公里内（包括3公里）起步价12元；'超过3公里，但10公里内(包括10公里

19、)，则3公里内收费12元，超出部分每公里2元；'如果超过10公里，则10公里内收费26元，超出部分每公里3元。其程序实现如下：'注：请不要更改原程序结构，删除、及下划线，并在对应位置填写正确的代码。Private Sub Command1_Click()x = Val(Text1.Text)If x > 0 And x <= 3 Then _If x > 3 And _ Then y = 12 + (x - 3) * 2If x > 10 Then y = _ * 3If x <= 0 Then y = 0Label1.Caption = x &a

20、mp; "公里"Label2.Caption = y & "元"End Sub17、'（1）删除及下划线，填空完成程序。'（2）已知三角形的两边分别为15、18，它们的夹角为41度，圆周率取3.14，求该三角形的面积。'注：请不要更改原程序结构，删除、及下划线，并在对应位置填写正确的代码Private Sub Command1_Click()a = 15b = _s = 0.5 * a * b * _(41 * 3.14 / 180)_= sEnd Sub18、'（1）删除及下划线，填空完成程序。'（2）

21、在文本框Text1中输入成绩，点击"等级"按钮时，文本框里就显示相应的等级。具体等级划分如下：' 90分以上为"优"，80到89分为"好"，70到79分为"良"，60到69分为"及格"，60分以下为"不及格"。'注：请不要更改原程序结构，删除、及下划线，并在对应位置填写正确的代码。Private Sub Command1_Click() Dim x As Integer, grade As String x = _ _ Case 90 To 100 grade

22、 = "优" Case 80 To 89 grade = "好" Case 70 To 79 grade = "良" Case 60 To 69 grade = "及格" Case Is < 60 _ Case Else MsgBox "请重新输入"End SelectPrint "该学生成绩为:" + _End Sub19、'在Text1中输入学生的成绩，点击“转换”按钮后，转换成相应的等级并显示在Label1中！Private Sub Command1_Click()Dim exam As Integer '定义变量exam用来存放成绩'判断输入的成绩是否为数值！If IsNumeric(Text1.Text) = False Then If MsgBox("您输入的成绩必须为数字！", vbInformation + vbOKOnly) = vbOK Then Exit Sub End IfEnd If'判断输入的成绩是否合法exam = V