中国农业出版社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