《VB3-5编程题答案.doc》由会员分享，可在线阅读，更多相关《VB3-5编程题答案.doc（11页珍藏版）》请在金锄头文库上搜索。
1、VB第三章编程题答案1在文本框中输入小时、分、秒，将它们换算为秒，然后输出。设小时为h，分为m,秒s ，则计算共有多少秒的公式为：x=h*3600+m*60+s。Private Sub Command1_Click() Dim h As Single, m As Single, s As Single, x As Single h = Text1.Text m = Text2.Text s = Text3.Text x = h * 3600 + m * 60 + s Label4.Caption = 共有 & x & 秒 End Sub2. 编写程序，计算分段函数的值。Private Sub
2、Command1_Click() Dim n As Single, y As Single n = Text1.Text Select Case n Case Is 0 y = 3 * n + 2 Case 0 y = 0 Case Else y = 2 * n - 1 End Select Label2.Caption = y= & y End Sub3. 计算奖金。企业利润I低于5000元的，奖金为利润的1，当5000=I10000，超过5000元部分奖金为1.5；当10000=I20000元，除10000元以下的按上述方法计算外，超过10000元部分按2计算奖金;如20000=I5000
3、0元的，超过20000元部分按2.5计算奖金；50000=I=100000元时，超过100000元部分按3.5计算奖金。I由键盘输入，要求输出相应的奖金数。Private Sub Form_Click() Dim i As Long, y As Long i = InputBox(请输入企业利润i) Select Case i Case Is 5000 y = i * 0.01 Case Is 10000 y = 5000 * 0.01 + (i - 5000) * 0.015 Case Is 20000 y = 5000 * 0.01 + 5000 * 0.015 + (i - 10000)
4、 * 0.02 Case Is 50000 y = 5000 * 0.01 + 5000 * 0.015 + 10000 * 0.02 + (i - 20000) * 0.025 Case Is 100000 y = 5000 * 0.01 + 5000 * 0.015 + 10000 * 0.02 + 30000 * 0.025 + (i - 50000) * 0.03 Case Else y = 5000 * 0.01 + 5000 * 0.015 + 10000 * 0.02 + 30000 * 0.025 + 50000 * 0.03 + (i - 100000) * 0.035 En
5、d Select Print 奖金为: & y End Sub4. 用If.then.else结构和selectCase结构编写程序，要求随着不断单击窗体，窗体的标题依次显示为北京市一上海市一天津市一河北省。Private Sub Form_Click() Static n As Integer Select Case n Case 0 Form4.Caption = 北京市 Case 1 Form4.Caption = 上海市 Case 2 Form4.Caption = 天津市 Case 3 Form4.Caption = 河北省 n = -1 End Select n = n + 1En
6、d Sub5. 编写一个程序，用户连续输入N个值，直到输入非数值数据为止。最后输出其中最大的一个数。Private Sub Command1_Click() Dim y As Integer, max As Integer Do n = InputBox(请输入一个数,输入非数字结束) Print n & ; For i = 1 To Len(n) If Asc(Mid(n, i, 1) 57 Then y = 1 Exit For End If Next If n max And i = Len(n) + 1 Then max = n Loop While y = 0 Print Print
7、 maxEnd Sub6. 利用5种DoLoop循环的样式，编写程序计算1100的总和。Private Sub Command1_Click() Dim n As Integer, s As Long s = 0 n = 1 Do s = s + n n = n + 1 If n 100 Then Exit Do Loop Print n, sEnd SubPrivate Sub Command2_Click() Dim n As Integer, s As Long s = 0 n = 1 Do While n 100 s = s + n n = n + 1 Loop Print n, sE
8、nd SubPrivate Sub Command4_Click() Dim n As Integer, s As Long s = 0 n = 1 Do s = s + n n = n + 1 Loop While n 100 Print n, sEnd Sub7. 编写一个程序计算多项式11十22十33十十1010。的值。Private Sub Command2_Click() Dim i As Integer, j As Integer, s As Double, t As Double For i = 1 To 10 s = s + i i Next i Print 11+22+33+
9、.+1010= & sEnd Sub8. 编写程序，在窗体上显示出1-15的奇数。Private Sub Command1_Click() For i = 1 To 15 Step 2 Print i; Spc(2); NextEnd Sub9. 求S=a+aa+aaa+.+aaaa.aaa的值，其中a和n的值由用户自己输入 例如，当a=3，n=4时,s3十33十333十3333。Private Sub Command1_Click() Dim a As Integer, n As Integer, s As Double, t As Double n = InputBox(请输入n) a =
10、 InputBox(请输入a) t = 0 For i = 1 To n s = 0 For j = 1 To i s = s + a * 10 (j - 1) Next j t = t + s Next i Print a, n, tEnd SubVB第四章编程题答案1.写一个程序，输出如题图43所示的杨辉三角形。Private Sub Command1_Click() Dim n As Integer Dim a() n = InputBox(请输入要输出杨辉三角形的行数) ReDim a(n, n) a(1, 1) = 1 Print a(1, 1) For i = 2 To n For
11、 j = 1 To i a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Print a(i, j); Next Print Next End Sub2 找出二维数组中每一行最大的元素。Private Sub Command1_Click() Dim n As Integer Dim a() As Integer, b() As Integer n = Val(InputBox(n) ReDim a(n, n), b(n) Randomize For i% = 1 To n For j% = 1 To n a(i, j) = Int(Rnd * 90) + 10
12、Print a(i, j); If a(i, j) b(i) Then b(i) = a(i, j) Next Print 第 & i & 行最大值为; b(i)NextEnd Sub3， 打印乘法九九表。格式如题图44所示。Private Sub Form_Click() Print Tab(65); 乘法九九表 Print Tab(65); - For i% = 1 To 9 For j% = 1 To 9 Print Tab(j * 14); i; *; j; =; i * j; Next j Print Next iEnd Sub4 编程计算1!+2!+3!+13!的值。Private Sub Command1_Click() Dim t As Double, s As Double For i = 1 To 13 t = 1 For j = 1 To i t = t * j Next j Print t s = s + t Next i Print sEnd Sub5 编程计算ex的近似值，直到最后一项的值小于等于10(-6)为止。Private Sub Command1_Click() Dim t As Do
