VB编程题2012.doc

VB上机编程题目实验课上遇到的问题，1和l部分多条件不会使用,两个或两个以上的条件用逻辑运算符连接P443编写程序，随机输入10个100以内的整数，计算其和及平均值。要求：可以输入并计算负整数。第1种方法，使用输入框函数输入10个随机数。Private Sub Command1_Click()Dim s&, p!, i%For i = 1 To 10 s = s + Val(InputBox(请输入第 & i & 个整数)NextPrint 和为：; s, 平均值为：; s / 10End 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 + pNextPrint 和为：; s, 平均值为：; s / 10End SubP634编写程序，求出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 NextNextEnd Sub5编写程序，把输入的字符串逆序输出。第1种方法，从前往后循环Private Sub Command2_Click()Dim x$, i%For i = 1 To Len(Text1.Text) x = Mid(Text1.Text, i, 1) & xNextLabel1.Caption = xEnd 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)NextLabel1.Caption = xEnd Sub第3种方法，直接用字符串反转函数实现Private Sub Command2_Click()Dim x$, i%x = StrReverse(Text1.Text)Label1.Caption = xEnd Sub6某大型超市实行会员制，每消费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.7End SelectText3.Text = zkbl 显示折扣比例Text4.Text = xfje * zkbl 计算应交款数Text5.Text = xykjf + Int(xfje) 当前积分End Sub也可以采用其它方式编程单分支方式If 条件1 ThenEnd IfIf 条件2 ThenEnd If双分支嵌套If 条件1 ThenElseIf 条件1 ThenElseIf 条件