高中信息技术学业水平测试 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

???嘠污?灮瑵潂?请在输入第+ 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

牐湩?从小到大排序后的数据为：

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

牐湩?不能构成三角形

Else

s = ___②___(q * (q - a) * (q - b) * (q - c))

牐湩?三角形的面积是& 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

慌敢??灡楴湯?尠该年是闰年！

Else

慌敢??灡楴湯?尠该年不是闰年！

___③____

End Sub

5、（1）删除①②及下划线，填空完成程序。（2）完善程序代码实现:手动输入0到10以内的一个整数，如果这个数字正好等于随机产生的整数（0到10之内），'那么输出恭喜您猜中了！，否则输出谢谢，重在参与！。

Private Sub Command1_Click()

Dim i, j As Integer

Randomize

i = ___①___

??慖?湉異?硯尨请您输入一个0-10之间的整数:))

牐湩?您选中的数字为：& j

牐湩?随机产生的数为：& i

If ____②___ Then

牐湩?恭喜您猜中了！

Else

牐湩?谢谢，重在参与！

End If

End Sub

精品文档．

精品文档

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