上机模一拟试题答案.docVIP

1.9通用对话框与文件 9.1 filter showopen cd1.filename close 9.2 file1.path=dir1.path Dir1.path=drive1.drive File1.filename 9.3 2 action a ucase 2 9.4 input a(i) in n a(j+1) ubound(a) 9.5 input text1.sellength a(n)+1 max_na(j) a(i)=max_n 9.6 Dim i As Integer, n As Integer Dim s As Long For i = 1 To 100 If a(i) = Int(aqr(a(i))) ^ 2 Then s = s + a(i) n = n + 1 End If Next i Text1.Text = Fix(s / n) 9.7 mat(n,m) as integer for input input#1,mat(i,j) i+j=6 1.10 综合应用 10.1 2 commondialog1.filename s Dim s As String, c As String s = Text1.Text For i = 1 To Len(s) c = Mid(s, i, 1) If c = E Then Mid(s, i, 1) = e ElseIf c = e Then Mid(s, i, 1) = E End If If c = N Then Mid(s, i, 1) = n ElseIf c = n Then Mid(s, i, 1) = N End If If c = T Then Mid(s, i, 1) = t ElseIf c = t Then Mid(s, i, 1) = T End If Next i Text1.Text = s 2 10.2 mat(n,m) input input print mat(3,j)=t 10.3 Dim s As Integer 通用声明 Private Sub read_Click() ReadData End Sub Private Sub Calc_Click() Dim i As Integer For i = 1 To 100 If Arr(i) 50 Then Text1.Text = Text1.Text Str(Arr(i)) s = s + Arr(i) End If Next i Print s End Sub Private Sub save_Click() WriteData out3.txt, s End Sub 10.4 9 temp j 1 10.5 exit for step -1 a(i) ubound(a) 实验10.6：input a(i,j) s(i) m visible 实验10.7： Dim i As Integer, j As Integer, k As Integer i = 1: j = 1 For k = 1 To 60 If i 30 Or j 30 Then Exit For If a(i) b(j) Then c(k) = b(j) j = j + 1 Else c(k) = a(i) i = i + 1 End If Next k If i 30 Then For k = 30 + j To 60 c(k) = b(j) j = j + 1 Next k End If If j 30 Then For k = 30 + i To 60 c(k) = a(i) i = i + 1 Next k End If 1.11综合实验1 11.4 Dim i As Integer For i = 0 To 100 Step 2