当前位置:首页 >> 其它课程 >> 高中信息技术学业水平测试 VB操作题

高中信息技术学业水平测试 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、输入学生成绩,显示相应等级 (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("请在输入第" + 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

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 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 + c) <= a Then Print "不能构成三角形" Else s = ___②___(q * (q - a) * (q - b) * (q - c)) Print "三角形的面积是" & s ____③____ End Sub

3、删除①②③及下划线,填上正确的代码,画出如下所示的图形,请不要更改原程序结构。 ******* ***** *** * Private Sub Command1_Click() Dim i, j, k As Integer For i = 4 To 1 Step ___①___ For j = 1 To ___②___ Step 1 Print "*"; '打印符号*

2

____③__ Print '换行 For k = i - 3 To 1 Print " "; '打印空格 Next k Next i End Sub

4、判断某年是否为闰年的方法是如果该年份的数值能被 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 Sub

5、 (1)删除①②及下划线,填空完成程序。 (2)完善程序代码实现:手动输入 0 到 10 以内 的一个整数,如果这个数字正好等于随机产生的整数(0 到 10 之内) ,'那么输出"恭喜您猜 中了!",否则输出"谢谢,重在参与!"。 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 "谢谢,重在参与!" End If End Sub

3

6、 凡在商场消费满 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 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

4

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 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 = 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 中输入学生的成绩,点击“转换”按钮后,转换成相应的等级并显示在 Label1 中! Private Sub Command1_Click() Dim exam As Integer exam = ____①___

5

Select Case ____②____ Case Is < 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 Sub

11、 '删除程序中的①②③及下划线,填空完成程序,运行程序使能打印下面所示的图案。 '@ '@@ '@@@ '@@@@ '@@@@@ '@@@@@@ '注:请不要更改原程序结构,删除①、②、③及下划线,并在对应位置填写正确的代码 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 i End Sub 12、'删除①②③及下划线, 利用字符串函数 Ucase()和转换函数 Asc(),填空完成程序。 '注:请不要更改原程序结构,删除①、②、③及下划线,并在对应位置填写正确的代码。

6

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 str3 End Sub 13 、

'删除①②③及下划线,填空完成程序。 '程序运行后,单击“初始值”命令按钮对数组 a 的各元素赋值; '单击“求和”命令按钮,求出数组 a 的各元素之和,并在 Text1 中显示出来 '注:请不要更改原程序结构,删除①、②、③及下划线,并在对应位置填写正确的代码。 Dim a(4, 3) As Integer Dim i, j As Integer Private Sub Command1_Click() For i = 0 To 3

7

For j = 0 To 2 _____①_____ = i + j Next j Next i End Sub Private Sub Command2_Click() For j = 0 To 3 For i = 0 To 2 s = s + _____②______ Next i Next j Text1.Text = ______③_______ End Sub 14、 '(1)删除①②③④及下划线,填空完成程序。 ( ' 2)程序运行后,从键盘上输入“abcd” ,单击确定按钮后,在标签 Label1 中显示出“BCD” '注:请不要更改原程序结构,删除①、②、③、④及下划线,并在对应位置填写正确的代码。 Private Sub Form_Load() Dim strtext As String strtext = ____①____("请输入") strtext = ____②____(Trim(____③____), 3) Label1.Caption = ____④____(strtext) End Sub 15、 '(1)删除①②③及下划线,填空完成程序。 '(2)从键盘输入 10 个 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

8

x = InputBox("请输入您的数:"): Print x; sum = sum + x If ____①____Then Max = x If ____②_____Then Min = x Next i Print "平均值" & _____③_______ Print "最大数" & max, "最小数" & min End Sub 16、 '(1)删除①②③及下划线,填空完成程序。 '(2)输入车程公里数,单击按钮“应收车费”后,在 Label1 输出车程,在 Label2 中输出 车费。 '收费标准:3 公里内(包括 3 公里)起步价 12 元; '超过 3 公里,但 10 公里内(包括 10 公里),则 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) * 2 If x > 10 Then y = _____③____ * 3 If x <= 0 Then y = 0 Label1.Caption = 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)

9

____③____= 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 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

'在 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 If End If '判断输入的成绩是否合法 exam = Val(Text1.Text) If exam < 0 Or exam > 100 Or Len(exam) = 0 Then If MsgBox("您输入的成绩不正确!", vbInformation + vbOKOnly) = vbOK Then Exit Sub End If End If '将输入的成绩转换为相应的等级 Select Case __①__ Case __②__ Label1.Caption = "该学生的成绩等级为:D"

11

Case __③__ Label1.Caption = "该学生的成绩等级为:C" Case __④__ 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


更多相关文档:

2012年江苏高中信息技术学业水平测试vb操作题带答案

2012年江苏高中信息技术学业水平测试vb操作题带答案_其它课程_高中教育_教育专区。徐州经济技术开发区高级中学 信息组 Vb专项练习第一套题目 1、打开“考生文件夹\96...

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

高中信息技术学业水平测试 VB操作题_其它课程_高中教育_教育专区。高中信息技术学业水平测试 VB操作题 Vb 算法 程序题汇总目录 1、输入 5 个数并排序(选择排序) ...

信息技术学业水平测试模拟试题2015

信息技术学业水平测试模拟试题2015_其它课程_高中教育_教育专区。普通高中学业水平...D. ⑤④③②① 65.在 VB 中,用来实现循环结构的语句是( A.For...Next ...

高中信息技术学业水平考试知识点

高中信息技术学业水平考试知识点_其它课程_高中教育_...返回到设置的默认主页;操作题:掌握如何设置默认主页 ...VB、C、C++、JAVA 语言 WPS(国产)、WORD、EXCEL、...

2013年山西省普通高中信息技术学业水平、考试操作题

2013年山西省普通高中信息技术学业水平考试操作题_其它课程_高中教育_教育专区...“VB 学习指导” ;(2)添加一个标签控件 Labell,并设置如下属性值: 该控件...

2013江苏省信息技术学业水平测试vb操作题带答案

2013江苏省信息技术学业水平测试vb操作题带答案_其它课程_高中教育_教育专区。祝您考试成功! 2013江苏省信息技术学业水平测试vb操作题带答案 Vb专项练习第一套 1、...

2013江苏省信息技术学业水平测试vb操作题带答案

2013江苏省信息技术学业水平测试vb操作题带答案_其它课程_高中教育_教育专区。祝您考试成功! 2013江苏省信息技术学业水平测试vb操作题带答案 Vb专项练习第一套 1、...

高中信息技术学业水平考试练习题

高中信息技术学业水平考试练习题_其它课程_高中教育_教育专区。高中信息技术会考...( A、顺序结构;B、环形结构 C、选择结构 D、循环结构 3、 VB 的字符串运算...

信息技术学业水平测试客观题复习

信息技术学业水平测试客观题复习_其它课程_高中教育_教育专区。信息技术 红星中学 2016 年信息技术学业水平测试 复习题(客观题部分) 一、信息与信息获取 1、关于...
更多相关标签:
高中学业水平考试 | 高中学业水平 | 山东高中学业水平考试 | 2016高中学业水平考试 | 普通高中学业水平考试 | 广东高中学业水平考试 | 高中学业水平考试报名 | 高中学业水平测试 |
网站地图

文档资料共享网 nexoncn.com copyright ©right 2010-2020。
文档资料共享网内容来自网络,如有侵犯请联系客服。email:zhit325@126.com