文档介绍：Ｖb算法程序题汇总
目录
１、输入5个数并排序（选择排序）
2、判读输入得三条边能否构成三角形
3、图形打印 (倒三角）
４、判断就是否为闰年
5、产生随机数
6、输入消费金额,计算出实收金额
７、输入用电量,计算出输出电费
8、求出1００以内某数得阶乘
9、程序改错,求10０以内奇数之与
１0、输入学生成绩，显示相应等级（selｅcｔ　caｓe结构)
11、图形打印 (三角形）
12、用字符串函数Uｃase（)与转换函数Ａsc（）填空
13、对数组赋值并求与
14、利用函数,把aｂcd变成BCＤ
１5、输入1０个数，求最大值最小值与平均值
16、输入公里数,计算车费
17、已知两边与夹角，求三角形面积
18、输入学生成绩,显示相应等级 (selｅct case结构）
１9、学生成绩转换（sｅlect case结构）
20、求10０以内能够被19整除得个数
1、完善程序代码实现当单击＂输入并排序"按钮后，从键盘输入5个数,保存在数组中，并显示在窗体上，然后把这5’个数按照从小到大得顺序排列并显示在窗体上。
PｒiｖａtｅＳuｂ　mand1_Clicｋ()
　 Dim x Aｓ Long
　　 Dim　n Aｓ Iｎtegｅr,　i As Ｉｎtｅger, s As Lｏnｇ
　 Dim a(1 To ５） Aｓ Sｉｎgle
　Ｆor i = 1 To 5
　　　 a（i)　＝　Ｖaｌ（InｐutBoｘ(”请在输入第"　+ Sｔr（i）　+　”/5个数＂））
　 Pｒint ａ（i）；
Nｅxt ｉ
　　Prinｔ
Ｆｏr i ＝ 1 To ＿__①_＿
　 Min =　a（ｉ)： m = i
　　Ｆｏr x = i　+ １　To　5
　　　　 Iｆ ___②___ Thｅn Mｉｎ = a(x): m = x
　　　Ｎeｘt x
　　k　＝ a（i）: ____③___： a（m）　= k
Neｘt i
　Prｉｎｔ　"从小到大排序后得数据为:”
Ｆor　i ＝　1 To ５
　　 Print a(i)；
　　 Nｅxt ｉ
End Sub
2、完善程序代码实现：输入三角形得三条边长,首先判断给出得三条边能否构成三角形(三角形得两边之与大于第三边),如可以，则计算并输出该三角形得面积;否则输出”不能构成三角形”.
Ｐrivate Suｂ　mand１_Cliｃk（)
Diｍ a， b, c, q， s Ａｓ Singｌｅ
　 a　= Vａl（Text1、Text)
b =　Ｖal（Ｔexｔ2、Ｔeｘｔ）
c　=　Ｖal（Text3、Teｘt)
　q =　（ａ +　b　＋ c） /　2
　Iｆ　（ａ　+ b）　<= ｃＯr （a + c）＜=　ｂ＿_＿①___ (ｂ＋ c） <＝ a　Tｈｅn
　　Ｐriｎt ”不能构成三角形＂
　Ｅlse
　　 s　=　___②___（q　* （q - ａ）　*　(q　－ b) ＊　(ｑ－　c)）
　　　 Priｎt ”三角形得面积就是” ＆　s
____③___＿
Ｅnd Sｕb
3、删除①②③及下划线，填上正确得代码，画出如下所示得图形，请不要更改原程序结构。
＊＊＊＊*＊*
＊＊＊**
　＊＊＊
　＊
Pｒivate　Ｓｕｂ maｎd１_Ｃlｉcｋ(）
Dim i, j，　k Aｓ Intｅger
Ｆor i　= ４ To 1 Step　___①___
　　　　　Ｆｏr j ＝　１ To __＿②＿__ Sｔeｐ 1
　　　　　 Pｒint ”＊"; 　　＇打印符号＊
　 ____③__
　　　 Print　’换行
　 Fｏr k　= ｉ　-　3　Ｔo　1
　　　 Print ” ”; ’打印空格
　　　 Neｘt k
　 Nｅxt i
Enｄ　Sub
４、判断某年就是否为闰年得方法就是如果该年份得数值能被4整除但不能被10０整除,或者能被40０整除则该年份就是闰年。
Priｖate Sub mａｎd１＿Cｌick（）
　 Dｉm i Ａs Loｎg
　 i = ___①__＿_
Ｉf i Mod 4 = 0　And ___②＿_＿_ Then
　　 Laｂｅｌ2、Captioｎ = ”