5、
3． sin(1/4*3.14)+sqr(x+2*exp(y))/abs(x-y)
4． (a+b)/(c*d-sqr(1-a^2))
5． x mod 5=0 or x mod 9=0
6． False
7． -3 、 2 、 -2 、 2
8． CDEF
9． x>0 and y>0 or x<0 and y<0 或 x*y>0
10． s>=”A” and s<=”Z” or s>=”a” and s<=”z”
6、
三、選擇題
題號
1
2
3
4
5
答案
C
B
B
B
D
四、編程題
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ù)是: " & Ten
End Sub
2
Private Sub Form_Click()
Dim char As String *
7、1
Form1.CurrentX = Rnd * Form1.ScaleWidth
Form1.CurrentY = Rnd * Form1.ScaleHeight
char = Chr(Int(Rnd * 16) + 65)
Print char
End Sub
第4章 習(xí)題參考答案
一、判斷題
題號
1
2
3
4
5
6
7
8
答案
√
√
√
√
二、選擇題
題號
1
2
3
4
5
答案
A
D
B
B
B
三、程序閱讀
寫出下列各段程序執(zhí)行后的輸出結(jié)果。
1．7
8、8
5786
357864
13578642
2． w=4、w=13、w=135、w=31
3．此題有點(diǎn)錯誤，修改如下：
是將語句“If k < Asc("A") Then k = k + 26”改為：
If k < Asc("A") Or k > Asc("Z") And k < Asc("a") Then k = k + 26
改后的答案：
xyza12 uvw&
4．A
BBB
CCCCC
DDDDDDD
EEEEEEEEE
5．此題的“IF KeyAsci=13 Then”
9、改為“IF KeyAscii=13 Then”
答案是：129
四、程序填空題
1． (1) Sing=-1
(2) For i=2 to 19
(3) Sing=-Sing
2． (1) Len(oldsen)
(2) Mid(oldsen ,i,1)
(3) Ucase(char)
(4) char
3．
(1) Len(str1)
(2) Length-1
(3) Mid(str1,i,2)
(4) Sum=0
4．
(1) Trim(Str(i))
(2) Trim(Str(i*i))
(3) Right(x2,Len(x1))=
10、x1
5.
(1) last_one = last_two
(2) last_two = this_one
(3) i = i+1
(4) i-1
五、編程題
1．
Private 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)
11、
Rs = R1 + R2
Rp = Fix(Rp * 1000 + 0.5) / 1000 保留小數(shù)點(diǎn)后3位
Rs = Fix(Rs * 1000 + 0.5) / 1000 保留小數(shù)點(diǎn)后3位
MsgBox "并聯(lián)電阻是：" & Rp & vbCrLf & "串聯(lián)電阻是：" & Rs
End Sub
2．
Private Sub Form_Click()
Dim N As Long
N = Val(InputBox("請輸入年份", "提示框"))
If (N Mod 400 = 0) Or (N Mod 4 = 0 An
12、d N Mod 100 <> 0) Then 判斷條件
Print N & "年是閏年"
Else
Print N & "年不是閏年"
End If
End Sub
3．
Private Sub Form_Click()
Dim a!, b!, 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
13、 And a + c > b Then 如果能構(gòu)成三角形
x = (a + b + c) / 2
s = Sqr(x * (x - a) * (x - b) * (x - c))
Print "S="; s
Else
Print "數(shù)據(jù)有錯,不能構(gòu)成三角形"
End If
End Sub
4．(此題不適合使用Select語句)
Private Sub Command1_Click()
Dim x As Double, fx As Double
x = Val(InputBox("輸入x=?"))
14、 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 & ")="; fx
End Sub
5．
Dim i As Integer
Dim s As Long, t As Long
15、t = 1
For i = 1 To 10
t = t * i
s = s + t
Next i
Print " S=" & s
6．
Dim 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
16、 n = n * i
t = 1 / n
f = -f 表示符號
Loop
Print "S="; s
7．
方法一
Private Sub Form_Click()
Dim i As Integer
Dim Hundred As Integer, Ten As Integer, One As Integer 定義百位，十位，個位數(shù)
For i = 100 To 999
Hundred = i \ 100 求百位數(shù)
17、 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 i
End Sub
方法二
Private Sub Form_Click()
Dim i As Integer
Dim Hundre
18、d As Integer, Ten As Integer, One As Integer 定義百位，十位，個位數(shù)
For 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
19、 i & "是水仙花數(shù)"
End If
Next One
Next Ten
Next Hundred
End Sub
8．
Dim a As Double, x0 As Double, x1 As Double
a = Val(InputBox(“輸入a=?”)
x0 = a 初值
x1 = 2 / 3 * x0 + a / (3 * x0 * x0) 第一次迭代后的值
Do While Abs(x1 - x0) > 0.000001
20、 控制精度
x0 = x1 迭代
x1 = 2 / 3 * x0 + a / (3 * x0 * x0)
Loop
Print “立方根: ”; x1
第5章 習(xí)題參考答案
一、判斷題
題號
1
2
3
4
5
6
答案
√
√
√
√
二、選擇題
題號
1
2
3
答案
D
A
C
三、程序填空
1. Preserve a(n+1) a(i+1)=a(i) a(i+1)=m n+1或Ubound(a)
2. Print
21、
K-1
t = a(k, j): a(k, j) = a(j, k): a(j, k) = t
3． Rnd*100
P=10
P = J
P = 0
四、編寫程序
1.
Private Sub Command1_Click()
Dim A() As Integer, N As Integer
Dim i As Integer, M As Integer, t As Integer, k As Integer
N = Val(InputBox("
22、請輸入數(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)
Print A(i);
Next i
Print
移位
For i = 1 To M 循環(huán)體完成
23、右移一位，循環(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
Print
End Sub
2.
Const NM = 100
24、Private Sub Command1_Click()
Dim a(1 To NM) As Single, b(1 To NM) As Integer, max As Integer
Dim 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ù)
25、 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(max) < b(j) Then max = j
Next j
If max <> i Then
t
26、 = 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 i
End Sub
3.
Private Sub Command1_Click()
Dim a() As Integer
Dim n%, i%, j%
n = Val(InputBox("輸入一個整數(shù)n=?"))
ReDim a(n)
27、 Form1.Cls
Randomize
Print "產(chǎn)生的30個隨機(jī)整數(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 E
28、xit 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)
Else
j = j + 1
End If
Loop
Print "刪除后的數(shù)據(jù):"
For i = 1 To n
29、
Print a(i);
If i Mod 10 = 0 Then Print
Next i
End Sub
4.
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 < 50
x = Int(Rnd * 90) + 10 產(chǎn)生10~100之間的隨機(jī)整數(shù)
For i = 1
30、To n
If x = a(i) Then Exit For
Next i
If i > n Then
n = n + 1
a(n) = x
End If
Loop
For i = 1 To 49 使用選擇法排序
p = i
For j = i + 1 To 50
If a(p) > a(j) Then p = j
Next j
t = a(p):
31、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 i
End Sub
第6章 習(xí)題參考答案
一、判斷題
題號
1
2
3
4
5
6
答案
√
√
√
√
二、選擇題
題號
1
2
3
4
5
答案
D
C
A
D
B
三、程序填空題
1.（1） nsp=true
(2) m mod i=0
(3
32、) p1 and p2
(4) p1=nsp(i)
2．（1） number(i,7)
(2) (int n, int m)
(3) number=number*10+m
四、程序閱讀
1. a=9 b=4
2．(1) 36
25
16
9
4
1
(2)
1
4
9
9
4
1
3． 6
4. 1 4 6
五、編寫程序
1.
Public Function fact(x As Integer) As Single 求x!
Dim f As Single, i As
33、 Integer
f = 1
For i = 1 To x
f = f * i 累積
Next i
fact = f
End Function
Private Sub Form_Click()
Dim n%, m%, y!
Do
m% = Val(InputBox("m="))
n% = Val(InputBox("n="))
Loop Until m >= n And n >= 0
y = fact(m) / (fact(n) * fact(m - n))
34、 Print y
End Sub
2 private sub Insertfun(a%(), y%)
Dim i as integer,n as integer
n=ubound(a)
Redim preserve a(n+1)
For i=ubound(a)-1 to 0 step -1
If y
35、 next i
3. 判斷是否為回文函數(shù)
Private Function Judge(str As String) As Boolean
Dim i As Integer
Judge = True 假設(shè)為回文
For i = 1 To Len(str) \ 2 依次判斷對應(yīng)位置的兩個字符，只要有一組不等即不是回文
If Mid(str, i, 1) <> Mid(str, Len(str) + 1 - i, 1) Then
Judge = False
Exit
36、 Function
End If
Next i
End Function
4.
Private Sub Form_Click()
Dim n%,x!
n = Val(InputBox("n="))
x = Val(InputBox("x="))
Print fe(n, x) 調(diào)用求值函數(shù)過程
End Sub
求值函數(shù)過程
Public Function fe(n%, x!) As Single
Dim i As Integer, t As Single
fe = 1: t = 1
37、 For i = 1 To n
t = t * x / i t為通項
fe = fe + t
Next i
End Function
5.。。。。
第7章 習(xí)題參考答案
一、判斷題
題號
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
答案
√
√
√
√
√
√
√
√
二、填空題
1．___Multiline_______
2．____Value______
3．___Selected__
38、____、____List______、____0______、___List1.ListCount-1____
4． 下拉式列表框
5．___LargeChange_______、____Value______
6． Shift+Ctrl
7．KeyAscii=0
if KeyAscii>57 OR KeyAscii<48 then KeyAscii=0
三、程序填空
1． Label1.Font = Combo1.Text
Combo2.Text
39、 Label1.FontBold = True
Label1.FontItalic = True
Label1.FontSize = Val(Combo3.Text)
2． List1.List(list1.ListIndex)
list1.RemoveItem List1.ListIndex
List1.AddItem List2.List(List2.ListIndex)
List2.RemoveItem
四、選擇題
40、
題號
1
2
3
4
5
6
7
8
答案
A
D
D
B
D
D
C
D
五、編程題
1．添加功能
Private Sub cmdAdd_Click()
Dim i%
If Combo1.Text = "" Then Exit Sub
For i = 0 To Combo1.ListCount - 1 逐個判斷是否有與輸入內(nèi)容相同的項目
If Combo1.Text = Combo1.List(i) Then Exit Sub 找到相同項目則退出
Next i
Combo1.AddItem Co
41、mbo1.Text 未找到則添加
End Sub
刪除功能
Private Sub cmdDelete_Click()
If Combo1.ListIndex >= 0 Then 是否選中某一項目
Combo1.RemoveItem Combo1.ListIndex 刪除選中項目
Else 刪除與輸入內(nèi)容相同的項目
For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = Combo1.Text Then
Combo
42、1.RemoveItem i
End If
Next i
End If
End Sub
清除
Private Sub Command3_Click()
Combo1.Clear
End Sub
2．
Private Sub Command1_Click() ‘ 產(chǎn)生隨機(jī)數(shù)
Dim i%
Randomize
For i = 1 To 10
List1.AddItem Str(Int(Rnd * 90) + 10)
Next i
List2.Cle
43、ar
End Sub
Private Sub Command2_Click() ‘ 遷移偶數(shù)
Dim i%
i = 0
Do While i <= List1.ListCount - 1
If Val(List1.List(i)) Mod 2 = 0 Then
List2.AddItem List1.List(i)
List1.RemoveItem i
Else
i = i + 1
End If
Loop
End S
44、ub
3．
Private Sub List1_DblClick()
Dim i As Integer
For i = 0 To List2.ListCount - 1 防止重復(fù)點(diǎn)歌
If List2.List(i) = List1.Text Then
Exit Sub
End If
Next i
List2.AddItem List1.Text
End Sub
Private Sub List2_DblClick()
List2.RemoveItem List2.L
45、istIndex
End Sub
第10章 習(xí)題參考答案
一、判斷題
題號
1
2
3
4
5
6
7
8
9
10
答案
√
√
√
√
√
√
√
二、選擇題
題號
1
2
3
4
5
6
7
8
9
10
答案
D
A
C
C
B
D
A
B
D
B
三、填空題
1． 窗體控件菜單、下拉菜單、快捷菜單
2． ___ShowFont___
3． ___打開/另存為、顏色、字體、幫助、打印
4． 工程/部件、選中Microsoft Common Dialog Cont
46、rol 6.0
5． ___ CommonDialog1.Action =3、CommonDialog1.ShowColor ______
6． 提示信息、對話框類型、對話框標(biāo)題
7． Click
8． 工具
9． 代碼窗口、Click
10． 相同、正（或大于等于0）
第11章 習(xí)題參考答案
一、判斷題
題號
1
2
3
4
5
6
答案
√
√
√
√
二、選擇題
題號
1
2
答案
C
C
第12章 習(xí)題參考答案
一、思考題
略
二、填空題
1____Database____、 ___Databa
47、se Management System____
2．___層次__ __、 ___網(wǎng)狀______、 ___關(guān)系___
3．__一個或多___、 ___行____、 ___列____ 。
4．_表類型__、_動態(tài)集類型_ 、_快照類型_、_快照類型_
5．_從“學(xué)生基本信息”表中查詢所有“性別”為“男”的記錄.
6．_______Select 姓名，應(yīng)發(fā)工資 From工資Where性別= "女"
7．_Insert into 學(xué)生成績 (學(xué)號，姓名，成績) Values(0204016，張穎，88)__
8．__Delete * from 學(xué)生成績Where 成績<
48、60___
9．_DatabaseName______、___Connect__
10．AbsolutionPosition___、__ Data1.Recordset.MoveFirst： Data1.Recordset.Move 5___
11．RecordCount__
12．_Data1.Recordset.Edit：Data1.Recordset("姓名") = "王軍"：_Data1.Recordset.Update_
13．_Data1.Recordset.Index= "XM"____
14．_Data1.Recordset.Move -6___
15．_Data1.Recordset.FindFirst "姓名 = 王穎"__
16．___DataSource______、____DataField_____
三、選擇題
題號
1
2
3
4
5
6
7
8
答案
C
B
C
B
D
B、D
B
C
VISUALBASIC60程序設(shè)計教程第三版課后習(xí)題答案羅朝盛主編人民郵電出版社.doc
