高中学业水平考试 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

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 "*"; '打印符号*

____③__

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