VB编程题2012.docVIP

PAGE  PAGE 4 VB上机编程题目 实验课上遇到的问题， ①1和l部分 ②多条件不会使用,两个或两个以上的条件用逻辑运算符连接 P44 3．编写程序，随机输入10个100以内的整数，计算其和及平均值。要求：可以输入并计算负整数。 第1种方法，使用输入框函数输入10个随机数。 Private Sub Command1_Click() Dim s, p!, i% For i = 1 To 10 s = s + Val(InputBox(请输入第 i 个整数)) Next Print 和为：; s, 平均值为：; s / 10 End Sub 第2种方法，使用随机函数生成10个随机数。 Private Sub Command1_Click() Dim s, p!, i% For i = 1 To 10 p = -Int(Rnd * 32867) + 100 Print p s = s + p Next Print 和为：; s, 平均值为：; s / 10 End Sub P63 4．编写程序，求出100以内的所有勾股数。（提示：a2+b2=c2，a,,b,c为自然数，且ab） Private Sub Command1_Click() Dim a%, b%, c% For a = 1 To 100 For b = 1 To 100 For c = 1 To 100 If a * a + b * b = c * c And a b Then Print a, b, c End If Next Next Next End Sub 5．编写程序，把输入的字符串逆序输出。 第1种方法，从前往后循环 Private Sub Command2_Click() Dim x$, i% For i = 1 To Len(Text1.Text) x = Mid(Text1.Text, i, 1) x Next Label1.Caption = x End Sub 第2种方法，从后往前循环 Private Sub Command2_Click() Dim x$, i% For i = Len(Text1.Text) To 1 Step -1 x = x Mid(Text1.Text, i, 1) Next Label1.Caption = x End Sub 第3种方法，直接用字符串反转函数实现 Private Sub Command2_Click() Dim x$, i% x = StrReverse(Text1.Text) Label1.Caption = x End Sub 6．某大型超市实行会员制，每消费1元积1分，不满1元不计。当会员卡：积分1000元时，不打折；1000《积分2000元时，打9折；2000《积分3000元时，打8.5折；3000《积分5000元时，打8折；5000《积分9000元时，打7.5折；积分》》9000元时，打7折。 编写程序，根据用户积分情况给出用户应交款数和当前积分。 程序设计界面 程序运行界面 Private Sub Command1_Click() Dim xykjf%, xfje!, zkbl!, yjks!, dqjf% xykjf = Val(Text1.Text) xfje = Val(Text2.Text) Select Case xykjf 计算折扣比例 Case Is 1000 zkbl = 1 Case Is 2000 zkbl = 0.9 Case Is 3000 zkbl = 0.85 Case Is 5000 zkbl = 0.8 Case Is 9000 zkbl = 0.75 Case Else zkbl = 0.7 End Select Text3.Text = zkbl 显示折扣比例 Text4.Text = xfje * zkbl 计算应交款数 Text5.Text = xykjf + Int(xfje) 当前积分 End Sub 也可以采用其它方式编程 ①单分支方式 If 条件1 Then End If If 条件2 Then End If ②双分支嵌套 If 条件1 Then Else If 条件1 Then