vb習題參考答案

1、第1章 習題參考答案二、選擇題1. C2. B第2章 習題參考答案一、判斷題題號1234567891011答案二、填空題1 窗體font 2 不能在代碼中設置 3 selstart 4Locked5 TabIndex 、 0 6 vbModal或 1 7 Activate 、 Deactivate 8 PictureBox 和 Frame -三、選擇題題號12345678910答案DCDADBBBAB第三章 習題參考答案一、思考題1、double2、 xyCabc， 15eyd， Is， #END X8P3、變量有 (1) (4) (6) (8)，常量有(2)字符串型 (3)邏輯型 (5)字符

2、串型 (7)字符串型 (9)日期型 (10)實型4、 5、(1) 26 (2) 3.75 (3) 36、寫出下列Visual Basic表達式的值：(1) False (2) True (3) True (4) False (5) True (6) True (7) False (8) False7、將下列命題用Visual Basic布爾表達式表示：(1) zx and zy (2) abs(a) b+2(3) p mod q=0 (4) x-2 and x5(5) xz or xz and yz (6) a0 and y0 or x0 and y0 。10 s=”A” and s=”a”

3、and s=”z” 。三、選擇題題號12345答案CBBBD四、編程題1、Private Sub Form_Click() Dim x%, Ten%, hundred% x = Val(Text1.Text) Ten = (x 10) Mod 10 hundred = x 100 Print 百位數(shù)是: & hundred Print 十位數(shù)是: & TenEnd Sub2Private Sub Form_Click() Dim char As String * 1 Form1.CurrentX = Rnd * Form1.ScaleWidth Form1.CurrentY = Rnd * F

4、orm1.ScaleHeight char = Chr(Int(Rnd * 16) + 65) Print charEnd Sub第4章 習題參考答案一、判斷題題號12345678答案二、選擇題題號12345答案ADBBB三、程序閱讀寫出下列各段程序執(zhí)行后的輸出結果。1785786357864135786422 w=4、w=13、w=135、w=31 3此題有點錯誤，修改如下：是將語句“If k Asc(A) Then k = k + 26”改為： If k Asc(Z) And k Asc(a) Then k = k + 26 改后的答案： xyza12 uvw& 4ABBBCCCCCDDD

5、DDDDEEEEEEEEE5此題的“IF KeyAsci=13 Then”改為“IF KeyAscii=13 Then” 答案是：129四、程序填空題1 (1) Sing=-1(2) For i=2 to 19(3) Sing=-Sing2 (1) Len(oldsen)(2) Mid(oldsen ,i,1)(3) Ucase(char)(4) char3(1) Len(str1)(2) Length-1(3) Mid(str1,i,2)(4) Sum=04(1) Trim(Str(i)(2) Trim(Str(i*i)(3) Right(x2,Len(x1)=x15.(1) last_on

6、e = last_two(2) last_two = this_one(3) i = i+1(4) i-1五、編程題1Private Sub Form_Click() Dim R1 As Double, R2 As Double R1，R2 表示兩電阻值 Dim Rp As Double, Rs As Double R1 = Val(InputBox(輸入電阻R1=？) R2 = Val(InputBox(輸入電阻R2=？) Rp = R1 * R2 / (R1 + R2) Rs = R1 + R2 Rp = Fix(Rp * 1000 + 0.5) / 1000 保留小數(shù)點后3位 Rs =

7、Fix(Rs * 1000 + 0.5) / 1000 保留小數(shù)點后3位 MsgBox 并聯(lián)電阻是： & Rp & vbCrLf & 串聯(lián)電阻是： & RsEnd Sub2Private Sub Form_Click() Dim N As Long N = Val(InputBox(請輸入年份, 提示框) If (N Mod 400 = 0) Or (N Mod 4 = 0 And N Mod 100 0) Then 判斷條件 Print N & 年是閏年 Else Print N & 年不是閏年 End IfEnd Sub3Private Sub Form_Click() Dim a!, b

8、!, c!, s!, x! a = Val(InputBox(Enter A=?) b = Val(InputBox(Enter B=?) c = Val(InputBox(Enter C=?) If a + b c And b + c a And a + c b Then 如果能構成三角形 x = (a + b + c) / 2 s = Sqr(x * (x - a) * (x - b) * (x - c) Print S=; s Else Print 數(shù)據(jù)有錯,不能構成三角形 End IfEnd Sub4(此題不適合使用Select語句)Private Sub Command1_Click

9、() Dim x As Double, fx As Double x = Val(InputBox(輸入x=?) If x 0 And x -3 Then fx = x * x + x - 6 ElseIf x = 0 And x 10 And x 2 And x 3 Then fx = x * x - 5 * x + 6 Else fx = x * x - x - 1 End If Print x= ; x; f( & x & )=; fxEnd Sub5Dim i As Integer Dim s As Long, t As Long t = 1 For i = 1 To 10 t = t

10、 * i s = s + t Next i Print S= & s6Dim i%, s!, n!, t!, f% i = 1 項數(shù) s = 0 累加和 n = 1 階乘 t = 1 通項 f = 1 系數(shù) Do While t 0.000001 s = s + f * t i = i + 1 n = n * i t = 1 / n f = -f 表示符號 Loop Print S=; s7方法一Private Sub Form_Click() Dim i As Integer Dim Hundred As Integer, Ten As Integer, One As Integer 定義百

11、位，十位，個位數(shù) For i = 100 To 999 Hundred = i 100 求百位數(shù) Ten = (i 10) - Hundred * 10 求十位數(shù) One = i Mod 10 求個位數(shù) If i = Hundred 3 + Ten 3 + One 3 Then 判斷是否為素數(shù) Print i & 是水仙花數(shù) End If Next iEnd Sub方法二Private Sub Form_Click() Dim i As Integer Dim Hundred As Integer, Ten As Integer, One As Integer 定義百位，十位，個位數(shù) For

12、Hundred = 1 To 9 百位數(shù) For Ten = 0 To 9 十位數(shù) For One = 0 To 9 i = Hundred * 100 + Ten * 10 + One If i = Hundred 3 + Ten 3 + One 3 Then 判斷是否為素數(shù) Print i & 是水仙花數(shù) End If Next One Next Ten Next HundredEnd Sub8Dim a As Double, x0 As Double, x1 As Doublea = Val(InputBox(“輸入a=?”)x0 = a 初值x1 = 2 / 3 * x0 + a /

13、(3 * x0 * x0) 第一次迭代后的值Do While Abs(x1 - x0) 0.000001 控制精度 x0 = x1 迭代 x1 = 2 / 3 * x0 + a / (3 * x0 * x0)Loop Print “立方根: ”; x1第5章 習題參考答案一、判斷題題號123456答案二、選擇題題號123答案DAC三、程序填空1. Preserve a(n+1) a(i+1)=a(i) a(i+1)=mn+1或Ubound(a)2. Print K-1 t = a(k, j): a(k, j) = a(j, k): a(j, k) = t 3 Rnd*100 P=10 P =

14、J P = 0 四、編寫程序1.Private Sub Command1_Click()Dim A() As Integer, N As IntegerDim i As Integer, M As Integer, t As Integer, k As Integer N = Val(InputBox(請輸入數(shù)組的大小N=?) M = Val(InputBox(請輸入移位次數(shù)M=?) 輸入循環(huán)次數(shù)的大小 If N = 0 Then Exit Sub ReDim A(N - 1) Print 原始數(shù)組值 For i = 0 To N - 1 給數(shù)組賦值 A(i) = Int(Rnd * 100)

15、 Print A(i); Next i Print移位 For i = 1 To M 循環(huán)體完成右移一位，循環(huán)完成右移j位 t = A(N - 1) For k = N - 1 To 1 Step -1 循環(huán)右移 A(k) = A(k - 1) Next k A(0) = t Next i打印右移后的數(shù)組值 Print 循環(huán)右移 & M & 位后的數(shù)組值 For i = 0 To N - 1 Print A(i); Next i PrintEnd Sub2.Const NM = 100Private Sub Command1_Click()Dim a(1 To NM) As Single, b

16、(1 To NM) As Integer, max As IntegerDim i As Integer, j As Integer, k As Integer, t As Integer For i = 1 To NM 輸入100個數(shù)值 a(i) = Val(InputBox(請輸入a( & i & ) 的值) If Int(a(i) = a(i) Then 判斷是否為整數(shù) k = k + 1 整數(shù)個數(shù)加1 b(k) = a(i) 將這個整數(shù)存放到數(shù)組B End If Next i 選擇排擇 For i = 1 To k - 1 max = i For j = i + 1 To k If b

17、(max) b(j) Then max = j Next j If max i Then t = b(max): b(max) = b(i): b(i) = t End If Next i 打印輸出 For i = 1 To k Print b(i); If i Mod 5 = 0 Then Print Next iEnd Sub3.Private Sub Command1_Click() Dim a() As Integer Dim n%, i%, j% n = Val(InputBox(輸入一個整數(shù)n=?) ReDim a(n) Form1.Cls Randomize Print 產(chǎn)生的3

18、0個隨機整數(shù): For i = 1 To n a(i) = Int(Rnd * 21) - 10 Print a(i); If i Mod 10 = 0 Then Print Next i Print 刪除數(shù)組的相同數(shù)據(jù) j = 2 Do While j n For i = 1 To j - 1 查找相同的元素 If a(j) = a(i) Then Exit For Next i If i j Then 如果第i個數(shù)與前面的數(shù)據(jù)相同,刪除第i個元素 For i = j To n - 1 a(i) = a(i + 1) Next i n = n - 1 ReDim Preserve a(n)

19、Else j = j + 1 End If Loop Print 刪除后的數(shù)據(jù): For i = 1 To n Print a(i); If i Mod 10 = 0 Then Print Next iEnd Sub4.Private Sub Command1_Click()Dim a(1 To 50) As Integer, i%, j%, t%, p%, n%, x% n = 0 已經(jīng)產(chǎn)生的元素個數(shù) Randomize Do While n n Then n = n + 1 a(n) = x End If Loop For i = 1 To 49 使用選擇法排序 p = i For j =

20、 i + 1 To 50 If a(p) a(j) Then p = j Next j t = a(p): a(p) = a(i): a(i) = t Next i For i = 1 To 50 打印輸出 Print a(i); If i Mod 10 = 0 Then Print Next iEnd Sub習題與思考題一、思考題略二、判斷題題號123456答案三、選擇題題號12345答案DCADB四、程序填空題1nsp=Truem Mod i=0p1 And p2 =nsp(i)或=p22（1） number(i,7) (2) (int n, int m) (3) number=numbe

21、r*10+m五、程序閱讀1a=9 b=42(1) 362516941 0 (2) 014941 0 3 6 4 1 4 4 五、編寫程序1.Public Function fact(x As Integer) As Single 求x! Dim f As Single, i As Integer f = 1 For i = 1 To x f = f * i 累積 Next i fact = fEnd FunctionPrivate Sub Form_Click() Dim n%, m%, y! Do m% = Val(InputBox(m=) n% = Val(InputBox(n=) Loo

22、p Until m = n And n = 0 y = fact(m) / (fact(n) * fact(m - n) Print yEnd Sub2. Option ExplicitDim a() As Integer 定義窗體級動態(tài)數(shù)組 插入過程SortPrivate Sub Insertfun(a%(), y%) y為要插入的數(shù) Dim j As Integer, i As Integer, n As Integer j = 1 n = UBound(a) 求數(shù)組上界 Do While y a(j) And j n 查找插入的位置 j = j + 1 Loop For i% = n -

23、 1 To j Step -1 空出要插入的位置 a(i + 1) = a(i) Next i a(j) = y 插入End SubPrivate Sub Form_Load()End SubPrivate Sub Txtinput_KeyPress(KeyAscii As Integer) Dim x As Integer, i As Integer If KeyAscii = 13 Then Static n As Integer 定義靜態(tài)變量 n = n + 1 x = Val(Txtinput.Text) Picdata.Print x ReDim Preserve a(n) 插入后重

24、定義數(shù)組的大小 Insertfun a, x 調用插入過程 For i = 1 To UBound(a) Picresult.Print a(i); Next i Picresult.Print Txtinput.Text = End IfEnd Sub3.判斷是否為回文錄函數(shù)Private Function Judge(str As String) As BooleanDim i As Integer Judge = True 假設為回文 For i = 1 To Len(str) 2 依次判斷對應位置的兩個字符，只要有一組不等即不是回文 If Mid(str, i, 1) Mid(str,

25、 Len(str) + 1 - i, 1) Then Judge = False Exit Function End If Next iEnd Function4.Private Sub Form_Click() Dim n%,x!n = Val(InputBox(n=) x = Val(InputBox(x=) Print fe(n, x) 調用求值函數(shù)過程End Sub求值函數(shù)過程Public Function fe(n%, x!) As SingleDim i As Integer, t As Single fe = 1: t = 1 For i = 1 To n t = t * x /

26、 i t為通項 fe = fe + t Next iEnd Function第7章 習題參考答案一、判斷題題號12345678910111213141516答案二、填空題1_Multiline_2_Value_3_Selected_、_List_、_0_、_List1.ListCount-1_4 下拉式列表框 5_LargeChange_、_Value_6. Shift+Ctrl 7.KeyAscii=0 8. if KeyAscii57 OR KeyAscii= 0 Then 是否選中某一項目 Combo1.RemoveItem Combo1.ListIndex 刪除選中項目 Else 刪除

27、與輸入內容相同的項目 For i = 0 To Combo1.ListCount - 1 If Combo1.List(i) = Combo1.Text Then Combo1.RemoveItem i End If Next i End IfEnd Sub清除Private Sub Command3_Click() Combo1.ClearEnd Sub2Private Sub Command1_Click() 產(chǎn)生隨機數(shù) Dim i% Randomize For i = 1 To 10 List1.AddItem Str(Int(Rnd * 90) + 10) Next i List2.C

28、learEnd SubPrivate Sub Command2_Click() 遷移偶數(shù) Dim i% i = 0 Do While i ave Then Print num(k); Next k Close #1End Sub3Private Sub Form_Click() Dim strIn As String * 1, k%, n% Dim Nm(1 To 26) As Integer 打開文件進行統(tǒng)計 Open D:Lcs.txt For Input As #1 Open D:Res.dat For Output As #2 Do While Not EOF(1) strIn = I

29、nput(1, #1) 一次讀出一個字符 strIn = UCase(strIn) 轉換為大寫字母 If strIn = A And strIn = Z Then n = Asc(strIn) - Asc(A) + 1 Nm(n) = Nm(n) + 1 End If Loop Close #1 Print 文件中各字符出現(xiàn)的次數(shù)是： For k = 1 To 26 Print#2,字符 & Chr(64 + k) & 的個數(shù)是： & Nm(k) Next k Close #2End Sub4.Private Sub Form_Click() Dim strIn As Byte, k%, n%

30、 打開文件進行統(tǒng)計 Open D:A.txt For Binary As #1 Open D:a1.txt For Binary As #2 Open D:a2.txt For Binary As #3 n = LOF(1) 求文件A.txt的長度 For k = 1 To n / 2 前一半寫入到文件a1.txt Get #1, , strIn 一次讀出一個字節(jié) Put #2, , strIn Next k For k = n / 2 + 1 To n 后一半寫入到文件a2.txt Get #1, , strIn 一次讀出一個字節(jié) Put #3, , strIn Next k CloseEnd Sub第9章 習題參考答案一、判斷題題號12345678答案二、填空題1 框架 圖片框 2 （300，-150） 。3 右 、 上 4 缺省 5 圖片框 6 逆 三、選擇題題號12345678910答案DCCDABBAAC四、編程題1Const pi = 3.1415926Private Sub Comm