高中信息技术学业水平测试 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(\请在输入第\个数\ 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 \三角形的面积是\ ____③____ 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 \您选中的数字为：\ Print \随机产生的数为：\ 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 & \的阶乘等于\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 \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 = \

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 \您输入的数有：\、\ max = x: min = x: sum = x For i = 2 To 10

8

x = InputBox(\请输入您的数：\ sum = sum + x

If ____①____Then Max = x If ____②_____Then Min = x Next i

Print \平均值\③_______ Print \最大数\最小数\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(\您输入的成绩必须为数字！\ Exit Sub End If End If

'判断输入的成绩是否合法 exam = Val(Text1.Text)

If exam < 0 Or exam > 100 Or Len(exam) = 0 Then

If MsgBox(\您输入的成绩不正确！\ 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 \

Print \到100之间能被19整除有:\个数\

End Sub

12

本文来源：https://www.bwwdw.com/article/d9l3.html