visualbasic程序設(shè)計教程(第2版)課后部分編程題參考答案(編輯修改稿)
2025-07-25 08:35 本頁面
【文章內(nèi)容簡介】 1. 程序代碼如下： Private Sub Form_Load() Show Dim a(100) As Single n = Val(InputBox(輸入個數(shù)n)) Print 處理前數(shù)據(jù) : For k = 1 To n a(k) = Val(InputBox(請輸入第 amp。 k amp。 個數(shù))) Print a(k)。 Next k Print M = Int(n / 2) For k = 1 To M h = n k + 1 t = a(h):a(h) = a(k):a(k) = t Next k Print 處理的結(jié)果 : For k = 1 To n Print a(k)。 Next kEnd Sub2. 程序代碼如下： Private Sub Form_Load() Dim a(6, 6) As Integer Show For i = 1 To 6 For j = 1 To 6 Select Case i Case Is j a(i, j) = 1 Case Is j a(i, j) = 2 Case Is = j a(i, j) = 0 End Select Print a(i, j)。 Next j Print Next i For i = 1 To 6 t = a(1, i):a(1, i) = a(6, i):a(6, i) = t Next i Print: Print For i = 1 To 6 For j = 1 To 6 Print a(i, j)。 Next j Print Next iEnd Sub3．在窗體上建立兩個列表框List1(處理前數(shù)據(jù))和List2(處理后數(shù)據(jù))，以及標簽Label1。程序代碼如下： Private Sub Form_Load() Dim a(100) As Integer, b(100) As Integer Randomize n = 100 For i = 1 To n 39。輸入數(shù)組a的n個元素 x = Int(20 * Rnd) x a(i) = x Next i k = 0 For i = 1 To n 39。刪除零元素 If a(i) 0 Then k = k + 1 : b(k) = a(i) : b(k) End If Next i = 數(shù)組中零元素個數(shù)： + Str(n k)End Sub4．(1) g(x 10) + 1 (2) n 1 (3) g(t) g(j) (4) m = s(t): s(t) = s(k): s(k) = m 5．在窗體上建立4行3列共12個元素的文本框控件數(shù)組Text1(0)～Text1(11)Private Sub Form_Load() Dim t(12) As String Randomize For k = 1 To 12 t(k) = Empty 39。初始安排12個位置均為Empty Next k For h = 65 To 74 39。代表A至J，每次隨機安排一個字母 Do While True 39。隨機查找一個空位 p = Int(1 + 12 * Rnd) 39。產(chǎn)生1～12隨機數(shù) If t(p) = Empty Then t(p) = Chr(h) Exit Do End If Loop Next h For k = 1 To 12 Text1(k 1).Text = t(k) 39。顯示座位分配情況 Next kEnd Sub第7章1. 在窗體上建立四個文本框Text1和一個命令按鈕Command1(“檢驗”)。文本框Text1～Text3用于輸入，Text4用于輸出結(jié)果。Private Sub Command1_Click() Dim a As String, b As String, c As String a = Trim() b = Trim() c = Trim() If che(a) And che(b) And che(c) Then = Val(a) + Val(b) + Val(c) Else = 存在非數(shù)字字符 End IfEnd SubFunction che(x As String) As Boolean 39。若存在非數(shù)字字符，函數(shù)值為假 che = True For k = 1 To Len(x) s = Mid(x, k, 1) If s 0 Or s 9 Then che = False Exit For End If Next kEnd Function2．在窗體上建立七個文本框Text1～Text7和一個命令按鈕Command1(“比較”)。Text1～Text6用于輸入，Text7用于輸出結(jié)果。Private Sub Command1_Click() a = Val():b = Val():c = Val() d = Val():e = Val():f = Val() Call max(a, b, c, m) Call max(m, d, e, m) Call max(m, f, f, m) = mEnd SubSub max(x, y, z, m) ‘標準模塊文件 If x y Then m = x
語文相關(guān)推薦
鄂ICP備17016276號-1