实验指导书部分参考答案.docx

1、实验指导书部分参考答案实验四：4.1法一：Private Sub Form_Click() X% = Asc(InputBox(请输入你要查询的一个字符, 单个字符输入, ) Dim m As Single, n As Single, j As Single, k As Single, l As Single, h As Single m = Asc(0) n = Asc(9) j = Asc(a) k = Asc(z) l = Asc(A) h = Asc(Z) If m = x And x = n Then i = MsgBox(您输入的字符是数字) If j = x And x = k

2、Then i = MsgBox(您输入的字符是小写字母) If l = x And x b And a c And a d Then i = MsgBox(a是最大值) If b a And b c And b d Then i = MsgBox(b是最大值) If c a And c b And c d Then i = MsgBox(c是最大值) If d a And d b And d c Then i = MsgBox(d是最大值)End Sub法二：Private Sub Form_Click() Dim a As Double, b As Double, c As Double,

3、d As Double,max# a = Val(InputBox(请输入a的数值, 数值A, ) b = Val(InputBox(请输入b的数值, 数值B, ) c = Val(InputBox(请输入c的数值, 数值C, ) d = Val(InputBox(请输入d的数值, 数值D, ) If a b Then max =a else max=b If c max Then max=cIf d max Then max=dPrint “四个数中的最大值是：”；maxEnd Sub4.3 Private Sub form1_Click() Dim a！, b！, c！, s！, p！ a

4、 = Val(InputBox(请输入第一个边长的长度) b = Val(InputBox(请输入第二个边长的长度) c = Val(InputBox(请输入第三个边长的长度) If a b + c And b a + c And c 0 And b 0 And c 0 Then p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c) MsgBox 三角形的面积为： & s, 0 + 64 + 0 + 0, 您输入的边长可以构成三角 Else MsgBox(您输入的数据无法正常构成三角形！, 5 + 48 + 0 + 0, 警告！

5、 End IfEnd Sub4.4 Private Sub form1_Click() Dim x As Double,Y As Double x = Val(Text1.Text) 或者 x=val(inputbox(“请输入货物的价格”) If x = 10000 Then Y = x * 0.05 ElseIf x= 5000 And x 10000 Then Y = x * 0.03ElseIf 1000 = x And x 5000 Then Y=x*0.02 ElseIf x 1000 Then Y=0 End if MsgBox 你输入的价格” & x & “应该缴纳的税金为：

6、& y End sub4.5-4.7略实验五：5.1 Private Sub Form_Click()Dim t#, n%, m%m = Val(InputBox(请输入m:)t = 1For n = 1 To mt = t * nNextPrint t=; tEnd Sub5.2 Private Sub Form_Click()Dim i%, sum#i = 1sum=0Do While sum = 6000sum = sum + ii = i + 1LoopPrint “当i为” & I & “时，其累加和超过6000”End Sub5.3 Private Sub Form_Click()

7、 Dim a As Integer, b As Integer, c As Integer, x As IntegerFor x = 100 To 999 把每个三位数X的个位、十位、百位数字拆开 a = Int(x / 100) b = Int(x - 100 * a) / 10) c = x - 100 * a - 10 * b If x = a 3 + b 3 + c 3 Then Print x & “是水仙花数” Next xEnd Sub5.4Private Sub Form_Click() Dim n As Integer For n = 100 To 200 If n Mod

8、3 = 2 And n Mod 5 = 3 And n Mod 7 = 2 Then Print n Next nEnd Sub5.5 略5.6 略5.7法一：Private Sub Form_Click()Dim s%, i%, n%, sum#n = Val(InputBox(n=) 或者 n = Val(Text1.Text)sum = 0For j = 1 To ns = 0 For i = 1 To j s = s + i Next i sum = sum + sNext jPrint sumEnd Sub法二：Private Sub Form_Click()Dim s%, i%,

9、n%, sum#n = Val(InputBox(n=) 或者 n = Val(Text1.Text)sum = 0For j = 1 To n For i = 1 To j sum = sum + i Next iNext jPrint sumEnd Sub5.8 Private Sub Form_Click()Dim i%, j%, n%Clsn = InputBox(请输入行数：)For i = 1 To nPrint Tab(20);For j = 1 To iPrint *;Next jPrintNext iEnd Sub5.9法一：Private Sub Form_Click()

10、Dim i% For i = 1 To 10 Print Space(i + 15) + String(21 - 2 * i, Trim(Str(10 - i) Next iEnd Sub法二：Private Sub Form_Click() Dim i%,j%,k% For i =9 To 0 step -1 输出每一行行首的空格 For k=1 to 15-i Print “ ” ; 一次输出一个空格，每行共输出15-i个Next k输出每一行上的数字For j=1 to 2*i+1 Print trim(str(i); 一次输出一个数字，共输出2*i+1个 Next j print 换行

11、 Next iEnd Sub实验六：6.1Private Sub Form_Click() Dim a(1 To 10) As Integer, max%, min%, aver%, i% max = 20 假设最大值是20 min = 50 假设最小值是50 For i = 1 To 10 a(i) = Int(Rnd * 31 + 20) Print a(i); 每得到一个数组元素就输出一个 If max a(i) Then min = a(i) aver = aver + a(i) 求出10个数组元素的总和 Next x = x / 10 求得10个数的平均值 Print 换行Print

12、 max; min; aver End Sub6.2Private Sub Form_Click() 准备数据 Dim a(1 To 10) As Integer, i%, j%, f% Print 排序前数据： For i = 1 To 10 a(i) = Int(Rnd * 101) Print a(i); 数据输出不换行 Next Print 换行 For i = 1 To 10 - 1 f = 0 没有数据交换发生 For j = 1 To 10 - i If a(j) a(j + 1) Then t = a(j) a(j) = a(j + 1) a(j + 1) = t f = 1

13、有数据交换发生 End If Next If f = 0 Then Exit For Next Print 排序后数据： For i = 1 To 10 Print a(i); NextEnd Sub6.3略6.4Private Sub Form_Click() Dim a%(1 To 3, 1 To 3) 声明一个3X3的矩阵 输入矩阵A 的六个元素，并输出为矩阵样式 Print 转置前矩阵 For i = 1 To 2 For j = 1 To 3 a(i, j) = Val(InputBox(请输入第 & Str(i) & 行、第 & Str(j) & 列的元素) Print a(i,

14、j); Next j Print Next i 矩阵转置，要求两个下标都要从1变到3 For i = 1 To 3 For j = 1 To 3 If i max Then max = a(i, j) hangd = i lied = j End If If a(i, j) min Then min = a(i, j) hangx = i liex = j End If Next j Next i Print 矩阵中最大值是第 & Str(hangd) & 行、第 & Str(lied) & 列的元素 & max Print 矩阵中最小值是第 & Str(hangx) & 行、第 & Str(

15、liex) & 列的元素 & minEnd Sub6.6参考课本例题P109页例6.3试验八8.4Dim x% 记忆密码尝试的次数，变量声明在通用过程里，本窗体的所有过程都能访问x变量在通用过程里声明，只会被初始化一次(即dim语句给x赋一次0）Const zqmm = 123456 假设正确密码为“123456”Private Sub command1_Click() Dim mm$If x 3 Then mm = Text1.Text If mm = zqmm Then MsgBox 恭喜你，密码正确 如果是应用程序，就该进入下级操作界面 Else x = x + 1 MsgBox 密码错误,您还有 & 3 - x & 次机会 Text1.Text = Text1.SetFocus End IfEnd IfEnd SubPrivate Sub command2_Click() EndEnd Sub