高中信息技术学业水平测试VB操作题.docx

?可 ?可修编. ?可 ?可修编. Vb算法程序题汇总 目录 1、 输入5个散并(ill? Ml I?) 2、 聶波输入的三条讪能否构成三角形 3、 Bjfjnm (倒三角) 4、 利断是否为国年 5、 产生I?机敷 6、 输入消费金额.H骨岀实收金额 7、 输入用电量，丹算出收出电费 8、 求出100以杲敬的阶乘 9、 程jraa, * io。以奇数之和 10、 編入学生成绩，显示相应等级(select case s ? ) 11、 图形打印I三角形) 12、 用字符串函数Ucase()和ftftSfiAsc()?空 13、 对数组顺值并求和 14、 利用函敷,ft abed JR BCD 15、 編入10个散，求最大值最小值和平均值 16、 輸入公里數，计算车费 17、 EHI两ifi和夹魚，求三魚时面机 18、 输入学生成线，晶示相由等级(select case 3 ft ) 19、 学生成绩转換(select case结构) 20、 求100以能博佼19整懺的个敬 完善程伟代码实现当单击.編入并HHFKifllfi.从錠常输入5个敏，保存在敬组中，并显 示在窗仏上，然后IC延5十敬成照从爪孙大的收甲U河并显示在倒II上。 Private Sub mand1_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(lnputBoxC#tt 输入第+ Str(i) + 75 个贮)) Print a(i); Nexti Print For i = 1 To _?_ Min = a(i): m = i For x = i + 1 To 5 If ② Then Min = a(x): m = x Nextx k = a(i): ? : a(m) = k Next i PrinfUJ、奸大排序后的敬|g为：. For i = 1 To 5 Print a(i); Nexti End Sub 2、完St?If代码实附Mi人三角形的三条id长，首先刿斯给出的三条讪能否构成三角形(三 角怡的两讪之和大于第三ill), M可以，明计算并输出该三角愣的面税；S?l?i出?不能构成 三角盼。 Private Sub mand1_Click() Dima, b, c, q, s As Single a = Val(Textl.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 = (Z-. (q*(q?a)*(q.b)，(q.c)) PrinT三角形的面机是“s End Sub 3、MB?2x3)BTMS.填上正的代码,面岀如下慎示mH?, ifi不要更的原f?序結构。 Private Sub mand1_Click() Dim ij. kAs Integer Fori = 4To 1 Step _?_ For j = 1 To ② Step 1 PrintJ]UR 号* Print fj Fbrk = l-3To1 PrintVtJB 空胳 Nextk Nexti End Sub 4、聶?j某年是否力田年的方法是如果孩年忻的数価能被4整除但不能贫1。0整除，或者能 祓400是除崛孩年份是|可年。 Private Sub mand1_Click（） Dim i As Long If i Mod 4 = 0 And ② Then Label2.Caption = MK 年是田年！ ? Else Label2.Caption 一该年不是国年! End Sub 5、（1）册飴①②艮下命,，H空完成程斤。（2）完善程序代码实冊:手幼簡人0到10 一个整敬.如果因个散字正好等于曲机产生的整敬（0員10之），财么編岀,苗喜您備中了! ,否■输ST,垂在参与！ o Private Sub mand1_Click（） Dim i, j As Integer Randomize j = Val（lnputBoxC? 您输 V -个 0-10 2 H ft 整敬:?）） Print.您扯中的???：?j Print拋机产生的散为：?i If ② Then PrinCgggfi中了I - Else Print, I在参与！? End If End Sub 6、凡在商场消?满500元以