《2022年高中信息技术学业水平测试VB操作题 .pdf》由会员分享，可在线阅读，更多相关《2022年高中信息技术学业水平测试VB操作题 .pdf（12页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、1 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
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( 请在输入第
3、 + Str(i) + /5个数 ) Print a(i); Next i Print For i = 1 To _ _ Min = a(i): m = i For x = i + 1 To 5 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 12 页 - - - - - - - - - 2 If _ _ Then Min = a(x): m = x Next x k = a(i): _ _: a(m) = k Next i Print 从小到大排序后的数据为： For
4、i = 1 To 5 Print a(i); Next i End Sub 2、完善程序代码实现:输入三角形的三条边长，首先判断给出的三条边能否构成三角形（三角形的两边之和大于第三边），如可以，则计算并输出该三角形的面积；否则输出不能构成三角形 。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 +
5、c) = 1000 Then Text2.Text = _ Else If _ Then Text2.Text = m * 0.9 Else Text2.Text = m End If End If End Sub 7、在 Text1 中输入每月用电量，单击按钮应收电费 后，在 Text2 中输出电费。收费标准：家庭每月用电量不超过260 度按原价1.3 元/度收费； 超过 260 度，不超过 400 度每度电费用增加 0.1 元；超过 400 度后每度电费用增加0.3 元。Private Sub Command1_Click() Dim i As Single 名师资料总结 - - -精品资
6、料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 12 页 - - - - - - - - - 5 i =_ If i = 0 And i 260 And i 400 Then s = i * (1.3 + 0.3) _ = s & 元 End Sub 8、完善程序代码实现:任意输入一个1 到 100 以内的整数，并求出它的阶乘。Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim s As Double s = _ i =
7、 Val(InputBox( 请您输入一个1 到 100 以内的整数 ) For j = 1 To i s = _ _ Print i & 的阶乘等于 & s End Sub 9、下面的程序是求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= & s End Sub 10、在 Text1 中输入学生的成绩，点击“转换”按钮后，转换成相应的等级并显示在Label
8、1中！Private Sub Command1_Click() Dim exam As Integer exam = _ 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 12 页 - - - - - - - - - 6 Select Case _ Case Is 0 And x 3 And _ _ Then y = 12 + (x - 3) * 2 If x 10 Then y = _ _ * 3 If x = 0 Then y = 0 Label1.Caption =
9、x & 公里 Label2.Caption = y & 元 End Sub 17、（1）删除及下划线，填空完成程序。（2）已知三角形的两边分别为15、18，它们的夹角为41 度，圆周率取3.14，求该三角形的面积。注：请不要更改原程序结构，删除、及下划线，并在对应位置填写正确的代码Private Sub Command1_Click() a = 15 b = _ s = 0.5 * a * b * _ _(41 * 3.14 / 180) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - -
10、第 9 页，共 12 页 - - - - - - - - - 10 _= s End Sub 18、（1）删除及下划线，填空完成程序。（2） 在文本框Text1 中输入成绩，点击等级 按钮时，文本框里就显示相应的等级。具体等级划分如下： 90 分以上为 优，80 到 89 分为 好，70 到 79 分为 良，60 到 69 分为 及格 ，60 分以下为 不及格 。注：请不要更改原程序结构，删除、 、及下划线， 并在对应位置填写正确的代码。Private Sub Command1_Click() Dim x As Integer, grade As String x = _ _ Case 90
11、To 100 grade = 优 Case 80 To 89 grade = 好 Case 70 To 79 grade = 良 Case 60 To 69 grade = 及格 Case Is 60 _ Case Else MsgBox 请重新输入 End Select Print 该学生成绩为: + _ _ End Sub 19、名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 12 页 - - - - - - - - - 11 在 Text1 中输入学生的成绩，点击
12、“转换”按钮后，转换成相应的等级并显示在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 If End If 判断输入的成绩是否合法exam = Val(Text1.Text) If exam 100 Or Len(exam) = 0 Then If
13、 MsgBox( 您输入的成绩不正确！, vbInformation + vbOKOnly) = vbOK Then Exit Sub End If End If 将输入的成绩转换为相应的等级Select Case _ Case _ Label1.Caption = 该学生的成绩等级为：D 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 12 页 - - - - - - - - - 12 Case _ Label1.Caption = 该学生的成绩等级为：C Case
14、_ Label1.Caption = 该学生的成绩等级为：B Case _ Label1.Caption = 该学生的成绩等级为：A _ _ End Sub 20、（1）删除及下划线，填空完成程序。（2）点击“计算”按钮后，在窗体上输出“1+2+ +100”的和，并求出1 到 100 之间能被 19 整除的整数的个数注：请不要更改原程序结构，删除、及下划线，并在对应位置填写正确的代码。Private Sub Command1_Click() Dim i As Integer, x As Integer Dim s As Integer s = 0 x = 0 For i = 1 To 100 _ If _ Then x = _ _ Next i Print 1+2+3+4.+100= & s Print 1 到 100 之间能被19 整除有 : & x & 个数 End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 12 页 - - - - - - - - -