【正文】 10 y = 3 y = 0 Case Else Case Is 15 y = 4 y = 1 End Select 6．(1) (x100) And (x Mod 5=0) (2) 0 (3) Len() (4) 編程及上機(jī)調(diào)試1. 在窗體上建立兩個(gè)文本框Text1(輸入數(shù))及Text2(顯示結(jié)果)，一個(gè)命令按鈕Command1(“判斷”)。Private Sub Command1_Click() 39。Private Sub Command1_Click() r = 0: g = 0: b = 0 If = 1 Then 39。程序代碼如下：Private Sub Form_Load() Show s = 0 For k = 1 To 100 s = s + 1 / (1 + k * 4) Next k Print sEnd Sub2. 程序代碼如下：Private Sub Form_Load() Dim i As Integer, a As Integer, b As Integer, c As Integer Show For i = 100 To 999 a = Int(i / 100) b = Int((i 100 * a) / 10) c = i 100 * a 10 * b If a * a * a + b * b * b + c * c * c = i Then Print i End If Next iEnd Sub3. 在窗體上建立一個(gè)文本框Text1(初始值)、一個(gè)列表框List1(顯示結(jié)果)和一個(gè)命令按鈕Comd1(“查找”)。 ,。 ) End If Next k Next j Next iEnd Sub5．在窗體上建立一個(gè)列表框List1和一個(gè)“顯示表項(xiàng)”命令按鈕Command1。真時(shí)為選中 Print (i) End If Next iEnd Sub6．(1) (2) UCase(x) (3) t = A And t = Z (4) y + x7．程序代碼如下：Private Sub Form_Load() Show Dim a As Single, xn0 As Single, xn1 As Single a = Val(InputBox(請輸入一個(gè)正數(shù))) xn1 = a Do xn0 = xn1 xn1 = (xn0 + a / xn0) / 2 Loop While Abs(xn0 xn1) = Print a。 1, 2 2. 0 1 2 3 2 2 2 2 2 1 0 1 4 4 4 43. Name, Index4. (1) 0 To Index (2)Val(Text1(k).Text)5. (1) i+1 To k (2) s(i) s(j) (3) s(i)s(i1) (4) h = h+1 6. (1) ReDim a(1 To n + 1) (2) a(K + 1) = a(K) (3) a(p) 編程及上機(jī)調(diào)試1. 程序代碼如下： Private Sub Form_Load() Show Dim a(100) As Single n = Val(InputBox(輸入個(gè)數(shù)n)) Print 處理前數(shù)據(jù) : For k = 1 To n a(k) = Val(InputBox(請輸入第 amp。 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)。輸入數(shù)組a的n個(gè)元素 x = Int(20 * Rnd) x a(i) = x Next i k = 0 For i = 1 To n 39。隨機(jī)查找一個(gè)空位 p = Int(1 + 12 * Rnd) 39。 4 3. (1)10 (2)28 (3)6 (4) 6 4. Call Comd1_Click5. (1) n=16 (2) n\16 (3) Mid(ch, r+1, 1)編程及上機(jī)調(diào)試1. 在窗體上建立四個(gè)文本框Text1和一個(gè)命令按鈕Command1(“檢驗(yàn)”)。Text1～Text6用于輸入，Text7用于輸出結(jié)果。 次方=。Form3中建立了一個(gè)文本框Text1(其Text屬性值為“對不起，請向管理員查詢”)和命令按鈕Command1(“退出”)。打開排序窗口 39。隱藏主窗體 Unload Form2 39。隱藏“排序”窗體 39。產(chǎn)生隨機(jī)數(shù) For i = 1 To 20 d(i) = Int(1 + 99 * Rnd) d(i) Next iEnd SubPrivate Sub Command2_Click() 39。第9章習(xí)題單選題1．B 2．D 3．D 4．B 5. A 6. A編程及上機(jī)調(diào)試1. 程序代碼如下：Private Sub Form_load() Dim x(3) As Single, y As Single On Error GoTo errln 39。卸載窗體 Enderrln: 39。下標(biāo)越界的錯(cuò)誤碼為9 MsgBox (下標(biāo)越界(錯(cuò)誤碼為9)，跳過該錯(cuò)誤) Resume Next 39。 , 代碼為 amp。 For j = 1 To 2 * i 1 If j = i Then k = j Else k = 2 * i j End If If k 9 Then k = k + 7 Print Chr(k + 48)。程序代碼如下：Private len_S As Single, s As Integer 39。先取各指針的長度 len_S = Sqr(( ) ^ 2 + ( ) ^ 2) 39。繪制秒針 = len_S * Cos(pi * s / 30)End Sub3. 按要求在窗體上設(shè)計(jì)一個(gè)二級下拉菜單。設(shè)置文件過濾器 = C:\ 39。設(shè)置字體名稱 = 3