《高中信息技术学业水平测试VB操作题讲解学习》由会员分享，可在线阅读，更多相关《高中信息技术学业水平测试VB操作题讲解学习（11页珍藏版）》请在装配图网上搜索。
1、精品文档Vb算法程序题汇总目录1、输入5个数并排序(选择排序)2、判读输入的三条边能否构成三角形3、图形打印(倒三角)4、判断是否为闰年5、产生随机数6、输入消费金额，计算出实收金额7、输入用电量,计算出输出电费8、求出100以内某数的阶乘9、程序改错，求100以内奇数之和10、输入学生成绩，显示相应等级(select case结构)11、图形打印(三角形)12、用字符串函数UcaseO和转换函数Asc()填空13、对数组赋值并求和14、利用函数，把abed变成BCD15、输入10个数，求最大值最小值和平均值16、输入公里数，计算车费17、已知两边和夹角，求三角形而积18、输入学生成绩，显示相
2、应等级(select case结构)19、学生成绩转换(selectcase结构)20、求100以内能够被19整除的个数1、完善程序代码实现当单击输入并排序按钮后，从键盘输入5个数，保存在数组中，并显示在 窗体上，然后把这5,个数按照从小到大的顺序排列并显示在窗体上。Private Sub Command 1 _Click()Dim x As LongDim n As Integer, i As Integer, s As LongDim a(l To 5) As SingleFor i = 1 To 5?嘎污？究通滋？请在输入第十Str(i) + V5个数)Print a(i);Next i
3、PrmtFor i = 1 To_Min = a(i): m = iFor x = i + 1 To 5精品文档.精品文档If Then Min = a(x): m = xNext xk = a(i):_: a(m) = kNext i肺湮?从小到大排序后的数据为：For i = 1 To 5Print a(i);Next iEnd Sub2、完善程序代码实现:输入三角形的三条边长，首先判断给出的三条边能否构成三角形(三角形 的两边之和大于第三边)，如可以，则计算并输出该三角形的面积；否则输出不能构成三角形。Private Sub Conimand 1 _Click()Dim a, b, c,
4、 q, s As Singlea =al(Textl.Text)b = X?al(Text2.Text)c = Val(Text3.Text)q = (a + b + c)/2If (a + b) = c Or (a + c) = b Q)(b + c) = 1000 ThenText2.Text =ElseIf ThenText2.Text = m * 0.9ElseText2.Text = mEnd IfEnd IfEnd Sub7、中输出电究。收费标准：家Text2后，在在Textl中输入每月用电量，单击按钮应收电费度每度 电费用增400260度，不超过度收费；度按原价庭每月用电量不超过
5、2601.3元/超过元。0.30.1 加元：超过400度后每度电费用增加Private Sub Conimand 1 _Click()Dim i As Single精品文档.精品文档1=_If i = 0 And i 260 And i 400 Then s = 1*(13 + 03)裴?元End Sub8、完善程序代码实现:任意输入个1到100以内的整数，并求出它的阶乘。Private Sub Command 1 _Click()Dim i As IntegerDimj As IntegerDim s As DoubleS =一一?惬?海臭?现茏请您输入个1到100以内的整数)For j =
6、 1 To iS=一一肺潼?的阶乘等于&SEnd Sub9、下面的程序是求100以内所有奇数之和,程序中有三处错误，请更正。 Private Sub Conimand 1 _Click()Dim s As IntegerDim i As Integer s = 0For i = 1 To 99 Step 1 s = s*iEnd IfPrint s=& sEnd Sub10、在Textl中输入学生的成绩，点击“转换”按钮后，转换成相应的等级并显示在Labell中! Private Sub Conimandl_Click() Dim exam As Integer exam =Q)精品文档.精品
7、文档Select Case(2)Case 15 0 And x3 AndThen y=12 + （x-3）*2Ifx 10 Theny =* 3Ifx=0Theny=0慌敢?澜桶潟?砌?即公里慌敢?渊桶:易?磴?即元End Sub17、,(1)删除及下划线，填空完成程序。,(2)已知三角形的两边分别为15、18,它们的夹角为41度，圆周率取3.14.求该三角形的面 积。注：请不要更改原程序结构，删除、及下划线，并在对应位置填写正确的代码Private Sub C onimand 1 _Click()a=15b = _s = 0.5 * a * b * _(41 *3.14/ 180)精品文档.
8、精品文档=sEnd Sub18、,(1)删除)及下划线，填空完成程序。,(2)在文本框Textl中输入成绩，点击等级按钮时，文本框里就显示相应的等级。具体等级划 分如下：,90分以上为优，80到89分为好，70到79分为良，60到69分为及格，60分以下为不及格。注：请不要更改原程序结构，删除、及下划线，并在对应位置填写正确的代码。Private Sub Command 1 _Click()Dim x As Integer, grade As Stringx= Case 90 To 100牧概?优Case 80 To 89牧概?好Case 70 To 79牧概?？良Case 60 To 69牧
9、概?及格Case Is 60Case Else猿?现即请重新输入End Select膈湮?该学生成绩为:十End Sub19、精品文档.精品文档.Labell中！在Textl中输入学生的成绩，点击“转换”按钮后，转换成相应的等级并显示在Private Sub Conimand 1 _Click()exam用来存放成绩 定义变量Dim exam As Integer判断输入的成绩是否为数值！ If IsNumeric(Textl.Text) = False Then,vbliifbnnation + vbOKOnly) = vbOK Then您输入的成绩必须为数字！音？杳湿？Exit SubEn
10、d IfEnd If判断输入的成绩是否合法，exam = Val(Textl Text)If exam 100 Or Len(exam) = 0 Then,vbliifbnnation + vbOKOnly) = vbOK Then 音？杳湿?您输入的成绩不正确！Exit SubEnd IfEnd If将输入的成绩转换为相应的等级Select Case 一 Case _D该学生的成绩等级为：慌敢?浦桶潟?勘精品文档.精品文档Case _慌敢?溷桶;易?的该学生的成绩等级为：cCase _慌敢?浦桶;易?的该学生的成绩等级为：BCase 慌敢?澜桶;易?妙该学生的成绩等级为：AEnd Sub20、,(1)删除及下划线，填空完成程序。，(2)点击“计算”按钮后，在窗体上输出“1+2+100”的和,并求出1到100之间能被 19整除的整数的个数,注：请不要更改原程序结构，删除、及下划线，并在对应位置填写正确的代码。Private Sub Commandl_Click()Dim i As Integer, x As IntegerDim s As Integers = 0x = 0For i = 1 To 100If Thenx =Next iPrint十2十3十4十100= & sPrint到100之间能被19整除有尺?很?融个数End Sub精品文档.
高中信息技术学业水平测试VB操作题讲解学习
