《第9章实验答案》由会员分享，可在线阅读，更多相关《第9章实验答案（13页珍藏版）》请在金锄头文库上搜索。
1、实验9-1 随机产生20个学生的成绩，统计各分数段的人数。即059，6069，7079，8089，90100，并显示结果。产生的数据在Picture1中显示，统计结果在Picture2中显示，如图9-6所示。图9-6 程序运行界面Dim mark(19) As IntegerPrivate Sub Command1_Click()Dim i%Picture1.ClsFor i = 0 To 19 mark(i) = Int(Rnd * 101) If i Mod 5 = 0 Then Picture1.Print Picture1.Print mark(i) & Space(2);Next i
2、End SubPrivate Sub Command2_Click()Dim s(5 To 9) As IntegerRandomizePicture2.ClsFor i = 0 To 19 k = mark(i) 10 Select Case k Case 0 To 5 059分的人数 s(5) = s(5) + 1 Case 9 To 10 90100分的人数 s(9) = s(9) + 1 Case 6 To 8 存放其他3个分数段的人数，根据k对应获得 s(k) = s(k) + 1End SelectNext iFor i = 5 To 9 Picture2.Print s(; i;
3、 )的人数有; s(i); 个Next iEnd Sub实验9-2 随机生成10个2位数整数，然后按照从小到大的顺序排列，并显示排列结果（运行界面如图9-7所示）。Private Sub Command1_Click()Dim a(10) As IntegerRandomizeDim i%, j%, t%Picture1.Print 随机生成的数：For i = 0 To 9 a(i) = Int(Rnd * 90 + 10)Next iFor i = 0 To 9 Picture1.Print a(i); Spc(2); If (i + 1) Mod 5 = 0 Then Picture1.
4、PrintNext iPicture1.PrintPicture1.Print 排序后的数据显示如下：For i = 0 To 8 For j = 0 To 8 - i If a(j) a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next jNext iFor i = 0 To 9 Picture1.Print a(i); Spc(2); If (i + 1) Mod 5 = 0 Then Picture1.PrintNext iEnd Sub实验9-3 找一个nm的二维数组的“鞍点”。“鞍点”是指它在本行中数值最大
5、，在本列中数值最小。也可能在一个数组中找不到鞍点。输出鞍点的行、列号，如无鞍点则输出“无鞍点”。这里假设n=4，m=4，数组各元素的值为45、46、34、12、56、75、78、47、12、94、56、30、77、57、79、80。Private Sub Form_Click() Dim n As Integer, m As Integer, s As Integer Dim a() As Single, sum As Single n = InputBox(输入n) m = InputBox(输入m) ReDim a(n, m) For I = 1 To n For j = 1 To m a
6、(I, j) = InputBox(a( & I & , & j & )=) Print a(I, j); Next j Print Next I Print Num, Row, Column For I = 1 To n big = a(I, 1) For j = 1 To m If big a(k, col) Then flag = False Next k If flag = True Then s = s + 1Print big, I, col s为鞍点个数 End If Next IIf s = 0 Then Print 无鞍点End Sub实验9-4 编程实现把十进制数转换为二、
7、八、十六进制数。Option Base 0Private Sub Command1_Click()Dim i As Integer, d As Integer, b(15) As String, s As String, m As String, r As Integer, c As Integerm = 0123456789ABCDEFd = Val(Text1.Text)r = Val(Text3.Text)Do Until d = 0c = d Mod rb(i) = Mid(m, c + 1, 1)d = d ri = i + 1LoopDo While i 0i = i - 1s =
8、 s & b(i)LoopText2.Text = sEnd SubOption Base 0Dim A As IntegerPrivate Sub Command1_Click()Dim i As Integer, d As Integer, b(15) As String, s As String, m As String, r As Integer, c As Integerm = 0123456789ABCDEFd = Val(Text1.Text)r = ADo Until d = 0c = d Mod rb(i) = Mid(m, c + 1, 1)d = d ri = i + 1
9、LoopDo While i 0i = i - 1s = s & b(i)LoopText2.Text = sEnd SubPrivate Sub Option1_Click() A = 2End SubPrivate Sub Option2_Click() A = 8End SubPrivate Sub Option3_Click() A = 16End SubDim A As IntegerPrivate Sub Command1_Click()Dim i As Integer, d As Integer, b(15) As String, s As String, m As String
10、, r As Integer, c As Integerm = 0123456789ABCDEFd = Val(Text1.Text)r = ADo Until d = 0c = d Mod rb(i) = Mid(m, c + 1, 1)d = d ri = i + 1LoopDo While i 0i = i - 1s = s & b(i)LoopText2.Text = sEnd SubPrivate Sub List1_Click() A = Val(List1.Text)End Sub实验9-5 利用二维数组设计一个程序，输出界面如图9-11所示。图9-11 程序运行结果图Optio
11、n Base 1Private Sub Form_Click()Dim a(9, 9) As IntegerDim i As Integer, j As IntegerFor i = 1 To 9 For j = 1 To i a(i, j) = i * j Next jNext iFor i = 1 To 9 For j = 1 To i Print Tab(j - 1) * 9 + 1); i & & j & = & a(i, j); Next j PrintNext iEnd Sub实验9-6 如图9-12所示，运行时，由窗体右侧的文本框对列表框进行学生信息的输入，单击“输入学生信息”按
12、钮将数据添加至列表框1；单击“整理学生信息”，去除列表框1中的重复学生信息；在查找对象下面的Text1文本框输入一个姓名或姓，单击“查找”按钮，则在列表框中进行查找，若找到匹配的列表项，则把该人的信息显示在列表框2中。若未找到，则在列表框2中显示“查无此人”。 （a）输入学生信息，整理学生信息前 （b）整理学生信息前后 （c）查找学生图9-12 Option ExplicitPrivate Sub CmdAdd_Click() LstStuInfo.AddItem (TxtStu.Text) TxtStu = TxtStu.SetFocusEnd SubPrivate Sub CmdClearUp_Click() Dim i As Integer, j As Integer Do While i LstStuInfo.ListCount j = i + 1 Do While j LstStuInfo.ListCount If LstStuInfo.List(i) = LstStuInfo.List(j) Then LstStuInfo.RemoveItem j LstStuInfo.Refresh Else j = j + 1 End If Loop i = i + 1 LoopEnd SubPrivate Sub CmdFind_Clic
