文档介绍：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()
b = Val()
c = Val()
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