中國農業出版社vb程序設計教程答案梁敬東

① 劉瑞新的VB程序設計教程習題解答1-6章何處下載，有誰知道急求！

參考資料 [1] 劉瑞新，文成林等編.vb6.0 程序設計教程.北京：機械工業出版社，2002
[2] 史濟民，湯觀全編著.vb6.0 及其應用程序開發.北京:清華大學出版社,2003
[3] 鄭剛編著,資料庫原理及應用 北京：人民郵電出版社，2002
[4] 朱欣娟，資料庫原理教程入門 西安：西安電子科技大學出版社，2002
[5] 金英姿，鄧少昆著. VB實用培訓教程 人民郵電出版社 2003
[6] 劉瑞新著，VB程序設計 機械工業出版社 2003
[7] 張紀鵬著，VB程序設計教程 清華大學出版社 2001
[8] 李作緯著，VB實用教程 石油大學出版社 2002
[9] 周立柱著，資料庫管理系統 清華大學出版社 2004
[10] 張志強著，資料庫原理與設計 清華大學出版社 2004
[11] 王熠著， 資料庫基礎教程 機械工業出版社 2003
[12] 崔淼著， VB程序設計實踐教程 機械工業出版社 2002
[13] 胡毓堅著，資料庫原理及應用 機械工業出版社 2002

② visual basic程序設計教程南京大學出版社習題答案(韓立毛趙雪梅)

PrivateSubni_Click()

EndSub

PublicFunctionGetHLS(A()AsInteger)AsDouble
IfUBound(A)=1Then
GetHLS=A(0,0)*A(1,1)-A(0,1)*A(1,0)
EndIf
IfUBound(A)>1Then
DimRResAsDouble
DimLResAsDouble
DimCNumAsInteger
DimTNumAsDouble
DimiAsInteger
RRes=0
LRes=0

Fori=0ToUBound(A)
CNum=i
TNum=1
Ifi=0Then
Forj=0ToUBound(A)
TNum=TNum*A(j,j)
Nextj
EndIf
Ifi>0Then
CallYD(i)
Forj=0ToUBound(A)
TNum=TNum*A(j,cc(j))
Nextj
EndIf
RRes=RRes+TNum
Nexti


Fori=0ToUBound(A)
CNum=i
TNum=1
Ifi=0Then
Forj=0ToUBound(A)
TNum=TNum*A(j,UBound(A)-j)
Nextj
EndIf
Ifi>0Then
CallYD(i)
Forj=0ToUBound(A)
TNum=TNum*A(UBound(A)-j,cc(j))
Nextj
EndIf
LRes=LRes+TNum
Nexti


GetHLS=RRes-LRes
EndIf
EndFunction

PublicSubYD(NAsInteger)
Dimn1AsInteger
n1=UBound(aa)
ReDimbb(n1)
ReDimcc(n1)
Fori=0Ton1-N
bb(i)=aa(N+i)
Next
Fori=0Ton1-N
cc(i)=bb(i)
Next
Fori=n1-N+1Ton1
cc(i)=aa(i-n1+N-1)
Next
EndSub

③ 求vb程序設計實驗教程第二版選擇填空題答案

病情分析：
您好，根據您的敘述看是急性胃炎引起的胃酸分泌過多，但是不排除其他疾病的可能性
指導意見：
建議您首先給寶寶口服西咪替丁和嗎丁啉以及符合維生素B和乳酶生等葯物進行治療，在服用葯物三天後如果症狀沒有改善，建議您立即就醫
醫生詢問：

病情分析：
您好，這種情況還是考慮脾胃的原因，可能是食積有熱。

1、這種情況出現之前寶寶有沒有進食過多、胃脘脹滿的情況？食積化熱，胃中濁氣上升，則有口臭。胃脘脹滿不適，寶寶不舒服，就會以哭鬧的形式表現出來。這種情況下通常也會有大便的異常。

2、如果寶寶一直有食慾不振、不喜歡吃飯之類的症狀，考慮是脾氣虛引起的。
指導意見：
1、輕輕按壓寶寶的胃部、腹部，看有沒有哭鬧加重的情況，這樣就考慮可能有食積，可以用點消食化積、行氣除脹的葯物。

2、可以採用小兒推拿手法治療，對小兒消化系統症狀效果不錯。

希望對您有幫助，祝寶寶身體健康。
醫生詢問：

④ VB程序設計教程 第五版 蔣加伏 北京郵電大學出版社 習題答案

在窗體上輸入100～200之間(包括100和200)不能被3整除的奇數及這些數的和

⑤ vb程序設計教程課清華大學出版社喻焰後習題答案

病情分析：
您好，寶寶反復發燒幾天的話應先化驗下血常規，看看感染的類型，並且現專在咳嗽，要考慮屬是否出現下呼吸道感染的情況，流鼻涕有血絲和發燒引起的內熱等有關，血熱妄行。
指導意見：
1：您好，先給寶寶化驗下血常規，如果之前化驗過也應復查看看是否有變化，其次可以通過聽診或胸片等看看是否出現肺炎或氣管炎等。

2：如果是細菌感染的話應選擇敏感抗生素，如果是病毒感染的話除了用利巴韋林外還應加服清熱解毒退熱的葯物，比如小兒退熱口服液或小兒柴桂退熱顆粒等，多喝水。

祝寶寶早日康復~

病情分析：
你好，此種情況可以吃點維C銀翹片和板藍根和阿奇黴素分散片一起口服，連用的效果是不錯的
指導意見：
充足的休息和均衡的營養是治療的最佳途徑，多吃清淡的食物，多喝開水，多休息，再有保持塞內清潔通風就可以了

⑥ 幫我找找這本書的答案吧，謝謝啦…… 《vb程序設計》 高等教育出版社 鄭國平 王傑華主編

第一章：
一：選擇題
1-5 CCCCA 6-10 CBACA 11 A

二：填空題
1： 視圖 工具箱
2： 對象 事件驅動
3： 代碼 窗體設計器
4： 屬性 方法 事件
5： 對象的特徵
6： 一個對象可執行的動作
7： 屬性窗口 賦值語句

三：簡答題
1：略
2：略

四：編程題
【屬性窗口設置】
Caption 這是我的第一個練習
【代碼窗口設置】
Private Sub Form_Click()
Print "我可以用Visual Basic語言編寫程序了！"
End Sub

第二章：
一：選擇題
1-5: BDDCA
6-10： CBADD
11-15： DDBDB
16-20: DBCDC
21-23： CCD

二：填空題
1： Value
2： 下拉列表框
3： Scroll
4： LargeChange
5： ASCII碼
6： Enabled
7： ListCount
8： PopupMenu
9： Alt
10：復選
11：CommonDialog1.ShowColor 或者： ShowColor
12：Flags
13: 1
14：-
15：GFED

第三章
一：選擇題
1-5： ADADC
6-10： BCBDB
11-15：BBCBB
16-20：DCADA
21-25：ABCBB
26-30：DBBCB
31-34：BBDD

二：填空題
1： Right(CStr(x),1) & Left(CStr(x),1)
2： x Mod 5=0 Or x Mod 9=0
3： False
4： CDEF
5： s>="A" And s<="Z" Or s>="a" And s<="z"
6： x>=0 And x<100
7： Int(Rnd*(X-2)+3)
8： Sqr(cos(23*3.14/180)/(x^2*Log(y)))
9： -4 -5 -4
10："請輸入圓的半徑：" "求圓的面積" 2
11："圓的半徑值必須介於1到10之間，請重輸" 48 "求圓的面積"

第四章
一：選擇題
1-5： DCDAC
6-10： CCBDC

二：填空題
1： 4.8
20
2： y=11
3： 1！+2！+3！+4！+5！
4： 9
k
（學生我認為該題有錯，應把其中的 n 改成 k）
5： 0
n
6： 2
7： x>=0
x>max
8： 5 7
13 12
14 11
9： sum=0
sum+j
st & k & "+"
10： 4
11
10
11： i + 1
List1.RemoveItem j
12： Combo1.List(i)=Combo1.Text
flag=false
Combo1.AddItem Combo1.Text

三：編程題
1：

Private Sub Form_Click()

Dim x As Single

x = Val(InputBox("請輸入一個x的值："))

If x <= 0 Then

fx = -1

ElseIf x < 1 Then

fx = Sqr(x)

Else

fx = x ^ 3 + 2

End If

MsgBox ("運算結果為：" & fx)

End Sub

2：

Private Sub Form_Click()

Dim n As Integer, k As Integer, s As String

n = Val(InputBox("請輸入一個正整數："))

k = 2

s = n & "="

Do

If n Mod k = 0 Then

s = s & k & "*"

n = n \ k

Else

k = k + 1

End If

Loop Until n = k

s = s & k

Print s

End Sub

3：

Private Sub Form_Click()

Dim s As String, i As Integer

Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer

s = Text1.Text

For i = 1 To Len(s)

If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Then

If Val(Mid(s, i, 1)) Mod 2 <> 0 Then

a = a + 1

Else

b = b + 1

End If

ElseIf Mid(s, i, 1) >= "A" And Mid(s, i, 1) <= "Z" Then

c = c + 1

ElseIf Mid(s, i, 1) >= "a" And Mid(s, i, 1) <= "z" Then

d = d + 1

Else

e = e + 1

End If

Next i

Print "奇數個數為："; a

Print "偶數個數為："; b

Print "大寫字母個數為："; c

Print "小寫字母個數為："; d

Print "其他字元個數為："; e

End Sub

4：

Private Sub Form_Click()

Dim n As Integer, sum As Integer

n = Val(InputBox("請輸入一個正整數："))

Do Until n = 0

sum = sum + n Mod 10

n = n \ 10

Loop

MsgBox ("各位數字之和為：" & sum)

End Sub

5：

Private Sub Form_Click()

Dim n As Long, i As Integer, L As Integer

n = Val(InputBox("請輸入一個正整數："))

L = Len(CStr(n))

For i = 1 To L / 2

If Mid(CStr(n), i, 1) <> Mid(CStr(n), L, 1) Then

Exit For

End If

L = L - 1

Next i

If i > L / 2 Then

MsgBox ("該數是迴文數。")

Else

MsgBox ("該數不是迴文數。")

End If

End Sub

6：

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

For a = 1 To 30

For b = 1 To 30

For c = 1 To 30

If a ^ 2 + b ^ 2 = c ^ 2 And a < b Then

Print a, b, c

End If

Next c

Next b

Next a

End Sub

第五章

一：單選題

1-5： BCBBD

6-8： DAB

二：編程題
1：
Option Base 1
Private Sub Command1_Click()
Dim a(15) As Integer, i As Integer, j As Integer
Do
j = Int(Rnd * 90) + 10
If j Mod 2 <> 0 Then
i = i + 1
a(i) = j
Label1.Caption = Label1.Caption & Str(a(i))
End If
Loop Until i = 15
For i = 1 To 14
For j = i + 1 To 15
If a(i) < a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j
Label2.Caption = Label2.Caption & Str(a(i))
Next i
Label2.Caption = Label2.Caption & Str(a(i))
End Sub

2：
Option Base 1
Private Sub Form_Click()
Dim a(10) As Integer, i As Integer, Max As Integer, Min As Integer, sum As Integer
For i = 1 To 10
a(i) = Int(Rnd * 90) + 10
Print a(i);
sum = sum + a(i)
Next i
Print
Max = a(1)
Min = a(1)
For i = 2 To 10
If a(i) > Max Then
Max = a(i)
ElseIf a(i) < Min Then
Min = a(i)
End If
Next i
Print "最大數為："; Max
Print "最小數為："; Min
Print "平均值為："; sum / 10
End Sub

3：
Private Sub Form_Click()
Dim a(0 To 25) As Integer, idx As Integer, i As Integer, S As String, ch As String * 1
S = InputBox("請輸入一個字元串：")
Print "輸入的字元串為："; S
For i = 1 To Len(S)
ch = Mid(S, i, 1)
If ch >= "A" And ch <= "Z" Then
idx = Asc(ch) - Asc("A")
a(idx) = a(idx) + 1
ElseIf ch >= "a" And ch <= "z" Then
idx = Asc(ch) - Asc("a")
a(idx) = a(idx) + 1
End If
Next i
Print "統計結果如下："
For i = 0 To 25
Print Chr(Asc("A") + i); ":"; a(i); "次"
Next i
End Sub

4：

Option Base 1

Private Sub Form_Click()

Dim a() As Integer, m As Integer, n As Integer

Dim i As Integer, j As Integer, Max As Integer

m = Val(InputBox("請輸入行數："))

n = Val(InputBox("請輸入列數："))

ReDim a(m, n)

For i = 1 To m

For j = 1 To n

a(i, j) = Int(Rnd * 90) + 10

Print a(i, j);

If a(i, j) > Max Then Max = a(i, j)

Next j

Print

Next i

Print

For i = 1 To m

For j = 1 To n

If a(i, j) = Max Then

Print "最大元素是："; a(i, j);

Print "行號："; i;

Print "列號："; j

End if

Next j

Next i

End Sub

5：

Option Base 1

Private Sub Form_Click()

Dim a(5, 5) As Integer, i As Integer, j As Integer

Dim sum1 As Integer, sum2 As Integer, sum3 As Integer

Print "隨機生成數組元素："

For i = 1 To 5

For j = 1 To 5

a(i, j) = Int(Rnd * 9) + 1

Print a(i, j);

sum3 = sum3 + a(i, j)

If i = 1 Or i = 5 Or j = 1 Or j = 5 Then

sum2 = sum2 + a(i, j)

End If

Next j

Print

Next i

For i = 1 To 5

sum1 = sum1 + a(i, i) + a(i, 6 - i)

Next i

sum1 = sum1 - a(3, 3)

Print "對角線元素之和為："; sum1

Print "所有靠邊元素之和為："; sum2

Print "所有數組元素之和為："; sum3

End Sub

6：

Option Base 1

Private Sub Form_Click()

Dim a() As Integer, b() As Integer, n As Integer, k As Integer, i As Integer, j As Integer

n = Val(InputBox("請輸入n=", , 9)) + 1

ReDim a(n + 1, n + 1), b(n + 1, n + 1)

k = 8

For i = 1 To n

For j = 1 To i

a(i, 1) = 1

a(i, i) = 1

a(i + 1, j + 1) = a(i, j) + a(i, j + 1)

b(i, j) = a(i, j)

Print b(i, j); " ";

Next j

Print

Next i

End Sub

第六章：
一：填空題
1： AFBECD
2： -5
5
3： 2
4
6
8
4： 33
5： 5
無輸出
6： 1234
10
7： 0
8： 12 10
9： 2
4
6
7
10: 3 54 2 0 5 17 23

二：編程題
1：Private Sub Form_Click()
Dim s As String, n As Integer
s = InputBox("請輸入待轉數s=", "N進制轉十進制")
n = Val(InputBox("請輸入該數的進制n=", "N進制轉十進制"))
Print Convert(s, n)
End Sub

Private Function Convert(ByVal s As String, ByVal n As Integer) As Integer
Dim i As Integer, j As Integer
For i = Len(s) To 1 Step -1
Convert = Convert + Mid(s, i, 1) * n ^ j
j = j + 1
Next i
End Function

2：要麼由於資質太低，要麼題意敘述不清。此題答案，僅供參考。

Private Sub Form_Click()

Dim y As Single, n As Integer, t As Single

t = 1 / 2

y = t

n = 1

Do Until t <= 1E-5

n = n + 1

t = t / (2 * n)

y = y + t

Loop

Print y

End Sub

3：

Option Base 1

Dim a() As Integer

Private Sub Command1_Click()

Dim n As Integer, i As Integer

n = Val(InputBox("請輸入數據個數", "工程1", 10))

ReDim a(n)

For i = 1 To n

a(i) = Int(Rnd * 90) + 10

Text1 = Text1 & CStr(a(i)) & " "

Next i

End Sub

Private Sub Command2_Click()

Dim Max As Integer, Min As Integer, i As Integer, temp As Integer

Call Max_Min(Max, Min)

For i = 1 To UBound(a)

If a(i) = Max Then

temp = a(1)

a(1) = a(i)

a(i) = temp

Exit For

End If

Next i

For i = 1 To UBound(a)

If a(i) = Min Then

temp = a(UBound(a))

a(UBound(a)) = a(i)

a(i) = temp

Exit For

End If

Next i

For i = 1 To UBound(a)

Text2 = Text2 & CStr(a(i)) & " "

Next i

End Sub

Private Sub Max_Min(Max As Integer, Min As Integer)

Dim i As Integer

Max = a(1): Min = a(1)

For i = 2 To UBound(a)

If a(i) > Max Then

Max = a(i)

ElseIf a(i) < Min Then

Min = a(i)

End If

Next i

End Sub

Private Sub Command3_Click()

Text1.Text = ""

Text2.Text = ""

Command1.SetFocus

End Sub

4：

設計界面時：要將文本框的MultiLine屬性設置成True

ScrollBars屬性設置成 2

Private Sub Command1_Click()

Dim i As Integer

For i = 1000 To 9999

If Mid(i, 1, 1) = Mid(i, 4, 1) And prime(i) And prime(exchange(i)) And i < exchange(i) Then

Text1 = Text1 & "(" & i & " " & exchange(i) & ")" & vbCrLf

End If

Next i

End Sub

Private Function prime(n As Integer) As Boolean

Dim k As Integer

For k = 2 To Sqr(n)

If n Mod k = 0 Then Exit Function

Next k

prime = True

End Function

Private Function exchange(n As Integer) As Integer

Dim t As String * 1, s As String

s = CStr(n)

t = Mid(s, 2, 1)

Mid(s, 2, 1) = Mid(s, 3, 1)

Mid(s, 3, 1) = t

exchange = s

End Function

Private Sub Command2_Click()

Text1.Text = ""

Command1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

⑦ 求人民郵電出版社出版vb程序設計教程第三版課後題答案

我們學的版本和你的不一樣呢。不知道課後實驗的習題是否會一樣。你可以到琥珀課後資源網下載，裡面我們把最近的實驗報告共享了。我發給你，但不敢保證是一樣的喔！要的同學也可以到我們的論壇下載，地址就是我的名字了呵呵

⑧ vb程序設計教程第四版實驗題答案

它回答的背後發送到我的書的代碼的實驗部分，我會給出答案在質量方面給位加20-30分鍾是很重要的。謝謝你做，請檢查第一個問題的數量不是你單擊窗體上

⑨ vb程序設計教程課後答案 梁敬東主編

PrivateSubCommand1_Click()
Fori=1To4
Forj=0Toi
PrintChr$(65+i);
Nextj
Nexti
EndSub