1、高中信息技术学业水平测试 VB操作题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、已知两边和夹角,求三
2、角形面积18、输入学生成绩,显示相应等级 (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 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 b = Val c = Val q = (a + b + c) / 2 If (a + b) = c Or (a + c) = b _ (b + c) = 1000 Then = _ Else If _ Then = m * Else = m End If End IfEnd Sub7、在Text1中输入每月用电量,单击按钮应收电费后,在Text2中输出电费。收费标准:家庭每月用电量不超过260度按原价元/度收费;超过260度,不超过400度每度电费用增加元;
5、超过400度后每度电费用增加元。Private Sub Command1_Click() Dim i As Single i =_ If i = 0 And i 260 And i 400 Then s = i * + _ = 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 =
6、 _ _ Print i & 的阶乘等于 & sEnd Sub9、下面的程序是求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 = _ Sel
7、ect Case _ Case Is 60 = 该学生的成绩等级为:D Case 60 To 69 = 该学生的成绩等级为:C Case 70 To 84 = 该学生的成绩等级为:B Case 85 To 100 = 该学生的成绩等级为:A Case Else = 输入的数据不合法 _End Sub11、删除程序中的及下划线,填空完成程序,运行程序使能打印下面所示的图案。注:请不要更改原程序结构,删除、及下划线,并在对应位置填写正确的代码Private Sub Command1_Click() Dim i As Integer Dim j As Integer For i = 1 To _ P
8、rint Tab(10); For j = 1 To _ Print _ Next j Print Next iEnd Sub12、删除及下划线, 利用字符串函数Ucase()和转换函数Asc(),填空完成程序。注:请不要更改原程序结构,删除、及下划线,并在对应位置填写正确的代码。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
9、 = str3 & str1 str1 = Chr(Asc(str1) + _) _ Print str3End Sub13、删除及下划线,填空完成程序。程序运行后,单击“初始值”命令按钮对数组a的各元素赋值;单击“求和”命令按钮,求出数组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
10、SubPrivate Sub Command2_Click()For j = 0 To 3 For i = 0 To 2 s = s + _ Next iNext j = _End Sub14、(1)删除及下划线,填空完成程序。(2)程序运行后,从键盘上输入“abcd”,单击确定按钮后,在标签Label1中显示出“BCD”注:请不要更改原程序结构,删除、及下划线,并在对应位置填写正确的代码。Private Sub Form_Load()Dim strtext As Stringstrtext = _(请输入)strtext = _(Trim(_), 3) = _(strtext)End Sub15、(1)删除及下划线,填空完成程序。(2)从键盘输入10个100以内的整数,单击命令按钮后在窗体上输出其中的最大数,最小数和平均值注:请不要
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1