vb程序设计实验实训教程答案,《VB语言程序设计 实验指导与习题解答》这本书的测试题的答案在哪里？急求啊

vb程序设计实验实训教程答案,《VB语言程序设计 实验指导与习题解答》这本书的测试题的答案在哪里？急求啊详细介绍

本文目录一览： vb程序设计实验教程党向盈版答案

读文件Dim s As StringFileOpen(1, Application.StartupPath & "/score.txt", OpenMode.Input)While EOF(1) = Falses = LineInput(1)ListBox1.Items.Add(s)End WhileFileClose(1)写文件Dim sw As New System.IO.StreamWriter(Application.StartupPath & "/score.txt", False, System.Text.Encoding.Default)For i = 0 To 2sw.WriteLine(pers(i).name & Space(4) & pers(i).score)sw.Flush()Nextsw.Close()sw = Nothing

《vb程序设计教程》 王贺明主编 课后习题答案，谢谢啦！

第一题：
第二题：
第三题：
第四题：
第五题：
扩展资料这部分内容主要考察的是程序设计语言的知识点：
开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。 “Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。
VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序 。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
在使用传统的程序设计语言编程时，一般需要通过编写程序来设计应用程序的界面（如界面的外观和位置等），在设计过程中看不见界面的实际效果。而在Visual Basic 6.0中，采用面向对象程序设计方法（Object-Oriented Programming），把程序和数据封装起来作为一个对象，每个对象都是可视的。
开发人员在界面设计时，可以直接用Visual Basic 6.0的工具箱在屏幕上"画"出窗口、菜单、命令按键等不同类型的对象，并为每个对象设置属性。开发人员要做的仅仅是对要完成事件过程的对象进行编写代码，因而程序设计的效率可大大提高。

《VB语言程序设计 实验指导与习题解答》这本书的测试题的答案在哪里？急求啊

《VB语言程序设计》习 题 参 考 答 案
第1章习题
一、单选题
1．D 2．B 3．C 4．A 5．C 6. A
7．A 8．B 9．C 10．(1)A (2)B
二、多选题
1．ACDE 2．BCDE 3．CD 4. CE
三、填空题
1．事件驱动 2．解释，编译 3．设计，运行，中断
4. 属性，方法，事件 5. Command2_Click 6. 中央，代码
7．MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计"
编程及上机调试
1. 按要求设置窗体属性
2．在窗体上建立一个标签Label1。程序代码如下：
Private Sub Form_Click()
Label1.Caption = "你单击了窗体"
End Sub
Private Sub Form_DblClick()
Label1.Caption = "你双击了窗体"
End Sub
3． 在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。
Private Sub Command1_Click()
Dim x As Single
x = Val(Text1.Text)
Text2.Text = 15 * x
End Sub

第2章习题
一、单选题
1．①D，②D 2．①A，②C 3．A 4．B 5．B 6．B
7．C 8．D 9．B 10．B 11．A 12．A
13．B 14．A 15．B 16．A 17．B
二、多选题
1．BD 2．CD 3．AC 4. AD
三、填空题
1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y)
(3) a*a–3*a*b/(3+a) (4) x^(3/8)+Sqr(y*y+4*a*a/(x+y^3))
2．Int(50+6*Rnd)
3．(1)138 (2)3 (3)214 (4) "inchina" (5)70 (6) "45"
(7)0
4. "系统管理数据库"
编程及上机调试
1～3题：按要求完成操作练习。
4． Private Sub Command1_Click() '"最大化"按钮
Form1.WindowState = 2 '最大化
End Sub
Private Sub Command2_Click() '"还原"按钮
Form1.WindowState = 0 '还原
End Sub
Private Sub Command3_Click() '"最小化"按钮
Form1.WindowState = 1 '最小化
End Sub
5．在窗体上建立三个文本框Text1(第一个数)、Text2(第二个数)、Text3(计算结果)和一个命令按钮Command1(“计算”)。
Private Sub Command1_Click()
Dim x As Single
Dim y As Single
x = Val(Text1.Text)
y = Val(Text2.Text)
Text3.Text = x * x + y * y
End Sub
6. 在窗体上建立两个文本框Text1(输入一串字符)、Text2(输出结果)和一个命令按钮Command1。
Private Sub Command1_Click()
Dim x As String
x = Left(Text1.Text, 1) + Right(Text1.Text, 1)
Text2.Text = x
End Sub
第3章习题
一、单选题
1．C 2．B 3．D 4．D 5．B 6．C
7．B 8．D 9．D 10．A 11．A 12．C
13．C 14．B 15．(1)A (2)C 16．A 17．B
18．(1)D (2)B (3)C 19．D
二、多选题
1．AC 2．AC 3．ABCF
三、填空题
1. $000,124 2．Label1.Caption="a*b=" 3．Height，Width
4．2 5．Text1.SetFocus
6．Multiline, ScrollBars, 2 7．编程技术，程序设计
8．Private Sub Text2_Change() ′当文本框Text2中的文本内容发生变动时，执行该事件过程
Label1.Caption=Text1.Text ′把文本框Text1中的文本内容作为标签Label1的标题
End Sub
Private Sub Text1_GotFocus() ′当文本框Text1获得焦点时，执行该事件过程
Text1.SelStart = 0 ′选定文本框Text1中的所有文本内容
Text1.SelLength=Len(Text1.Text)
End Sub
编程及上机调试
1．在窗体上建立一个文本框Text1(输入n值)、三个标签Label1(第一个随机数)、Label2(第二个随机数)和Label3(第三个随机数)，以及一个命令按钮Command1。
Private Sub Command1_Click()
n = Val(Text1.Text)
Randomize
x = Int(1 + n * Rnd)
Label1.Caption = "第一个随机数" + Str(x)
x = Int(1 + n * Rnd)
Label2.Caption = "第二个随机数" + Str(x)
x = Int(1 + n * Rnd)
Label3.Caption = "第三个随机数" + Str(x)
End Sub
2．在窗体上建立了四个文本框Text1、Text2、Text3和Text4，以及一个命令按钮Command1(“交换”)和Command2(“合并”)。
Private Sub Command1_Click() '“交换”
t = Text1.Text
Text1.Text = Text2.Text
Text2.Text = Text3.Text
Text3.Text = t
End Sub
Private Sub Command2_Click() '“合并”
t = Text1.Text + Text2.Text + Text3.Text
Text4.Text = t
End Sub
3. (1) Rnd * 9000 + 1000 (2) Str(x) (3) Mid(s, 3, 1) + Mid(s, 2, 1) + Left(s, 1)
4. Private Sub Command1_Click() '往左
Text1.Left = 0
End Sub
Private Sub Command2_Click() '往右
Text1.Left = Form1.Width - Text1.Width
End Sub
Private Sub Command3_Click() '居中
Text1.Left = (Form1.Width - Text1.Width) / 2
End Sub
5. Private Sub Cmd1_Click()
Lab1.Visible = True
Lab1.Caption = "您已下达显示命令"
End Sub
Private Sub Form_Click()
Cmd1.Visible = True
End Sub
6. Private Sub Form_KeyPress(KeyAscii As Integer)
Show
Print "输入字符："; Chr(KeyAscii), "ASCII码为;"; KeyAscii
End Sub
Private Sub Form_DblClick()
Cls
End Sub
7. 产生这三个消息框的相应语句是：
产生第1个消息框：x = MsgBox("在这里显示提示信息", 4 + 0, "请确认")
产生第2个消息框：x = MsgBox("在这里显示" + Chr(13) + "提示信息",3 + 0,"请确认")
产生第3个消息框：x = MsgBox("在这里显示"+Chr(13)+"提示信息",2 + 16 + 0,"请确认")

第4章习题
一、单选题
1．C 2．A 3．C 4．C 5. B 6. A
7．D 8．B 9．B 10．(1)D (2)A (3)B
二、多选题
1．ABCFGHJ 2．BE 3．CD 4. CDE 5. AE
三、填空题
1．(S And (A>=18 And A <=20) And H>=1.65) Or (Not S And (A>=16 And Age<=18) And H>=1.60)
2. 60000 3. (1) "0" To "9" (2) "a" To "z","A" To "Z" (3) Else
4．(1)6 (2)-2 (3)2

5． Select Case x Case Is < 20
Case Is <= 0 y = 2
y = 4 Case Is <= 30
Case Is < 10 y = 3
y = 0 Case Else
Case Is < 15 y = 4
y = 1 End Select
6．(1) (x>100) And (x Mod 5=0) (2) 0
(3) Len(Text1.Text) (4) Text1.SelText
编程及上机调试
1. 在窗体上建立两个文本框Text1(输入数)及Text2(显示结果)，一个命令按钮Command1(“判断”)。
Private Sub Command1_Click() '“判断”
x = Val(Text1.Text)
If x Mod 2 = 0 Then
Text2.Text = "偶数"
Else消息
Text2.Text = "奇数"
End If
End Sub
2．窗体上建立了一个文本框Text1，用于显示结果。
Private Sub Form_Load()
x = Val(InputBox("请输入星期几(0～6)"))
Select Case x
Case Is = 0
Text1.Text = "星期日(Sunday)"
Case Is = 1
Text1.Text = "星期一(Monday)"
Case Is = 2
Text1.Text = "星期二(Tuesday)"
Case Is = 3
Text1.Text = "星期三(Wednesday)"
Case Is = 4
Text1.Text = "星期四(Thursday)"
Case Is = 5
Text1.Text = "星期五(Friday)"
Case Is = 6
Text1.Text = "星期六(Saturday)"
Case Else
Text1.Text = "输入错误"
End Select
End Sub
3．窗体上建立了一个文本框Text1(“输入口令”)和一个命令按钮Command1(“检查”)。
Private Sub Command1_Click() '“检查”
x = Text1.Text
If x = "12345678" Then
MsgBox ("欢迎你用机!")
Else
MsgBox ("对不起，口令错")
End If
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text1.MaxLength = 8
Text1.PasswordChar = "*"
End Sub
4．窗体上建立了两个文本框Text1(输入字符串)及Text2(转换结果)，一个命令按钮Command1(“清除”)。
Private Sub Command1_Click() '“清除”
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim s As String * 1
s = Chr(KeyAscii)
Select Case s
Case "A" To "Z"
s = LCase(s)
Case "a" To "z"
s = UCase(s)
Case Else
s = "*"
End Select
Text2.Text = Text2.Text + s
End Sub
5． 分别选择”红”、 ”绿”、 ”蓝”复选框后，单击命令按钮Command1时，通过RGB函数调配的颜色作为一个标签的背景色（BackColor）。
Private Sub Command1_Click()
r = 0: g = 0: b = 0
If Check1.Value = 1 Then '”红”复选框
r = 255
End If
If Check2.Value = 1 Then '”绿”复选框
g = 255
End If
If Check3.Value = 1 Then '”蓝”复选框
b = 255
End If
Label1.BackColor = RGB(r, g, b)
End Sub
6．程序代码如下：
Private Sub Form_Load()
LabClk.Caption = "0"
LabClk.Alignment = 1
LabClk.BorderStyle = 1
LabClk.FontSize = 22
LabClk.FontName = "黑体"
TimClk.Interval = 1000
End Sub
Private Sub TimClk_Timer()
LabClk.Caption = Val(LabClk.Caption) + 1
End Sub
7． (1) Chr(KeyAscii) (2) ElseIf Chr(KeyAscii)
(3) CheC = CheC - 1 (4) CheC (5) Is > 0 或 Else
第5章习题
一、单选题
1．A 2. B 3．(1)C，(2)B 4．B 5．C 6．A
7．(1)B，(2)C，(3)B 8. B 9. B 10. B
二、填空题
1．(1)4次，n=13 (2)3次，n=8 (3)3次，n=27 (4)3次，n=10 (5)1次，n=12
2．(1) Len(s) (2) Mid(s, k, 1) (3) c + t (4) Text2.Text
3．(1) t = 1 (2) n = n + 1 (3) t = t * 2
4. 0 5. Text 6. 下拉列表框 7. AddItem ，RemoveItem或Clear
8．(1)ItemA (2) ItemD (3) ItemD (4) ItemA
9．(1) Mid(x, p + 3) (2) p + 4 (3) InStr(p, x, "123")
编程及上机调试
1. 和数为：1.21。程序代码如下：
Private Sub Form_Load()
Show
s = 0
For k = 1 To 100
s = s + 1 / (1 + k * 4)
Next k
Print s
End Sub
2. 程序代码如下：
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 i
End Sub
3. 在窗体上建立一个文本框Text1(初始值)、一个列表框List1(显示结果)和一个命令按钮Comd1(“查找”)。
Private Sub Comd1_Click() '“查找”
Dim n As Integer
n = Val(Text1.Text)
List1.Clear:k = 0
Do While k <= 99
If Not (n Mod 7 = 0) Then
List1.AddItem n
k = k + 1
End If
n = n + 1
Loop
End Sub
4. 程序代码如下：
Private Sub Form_Load()
Show
n = Val(InputBox("正整数n="))
For i = 1 To n
For j = i + 1 To n
For k = j + 1 To n
If i * i + j * j = k * k Then
Print "("; i; ","; j; ","; k; ")"
End If
Next k
Next j
Next i
End Sub
5．在窗体上建立一个列表框List1和一个“显示表项”命令按钮Command1。程序代码如下：
Private Sub Command1_click() '"显示表项"按钮单击事件
FontSize = 12
Cls
For i = 0 To List1.ListCount - 1 '逐项判断
If List1.Selected(i) Then '真时为选中
Print List1.List(i)
End If
Next i
End Sub
6．(1) Text1.Text (2) UCase(x) (3) t >= "A" And t <= "Z" (4) y + x
7．程序代码如下：
Private Sub Form_Load()
Show
Dim a As Single, xn0 As Single, xn1 As Single
a = Val(InputBox("请输入一个正数"))
xn1 = a
Do

vb程序设计教程答案

先插入三个Textbox 控件 textbox1 textbox2 textbox3用于输入a、b、c三个数
再插入两个label控件label1、label2用于显示最大值与最小值
最后插入一个button控件
双击button控件输入以下代码即可
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c As Integer
a = CInt(TextBox1.Text)
b = CInt(TextBox2.Text)
c = CInt(TextBox3.Text)
If a > b And b > c Then
Label1.Text = CStr(a)
Label2.Text = CStr(c)
End If
If a > c And c > b Then
Label1.Text = CStr(a)
Label2.Text = CStr(b)
End If
If b > a And a > c Then
Label1.Text = CStr(b)
Label2.Text = CStr(c)
End If
If b > c And c > a Then
Label1.Text = CStr(b)
Label2.Text = CStr(a)
End If
If c > b And b > a Then
Label1.Text = CStr(c)
Label2.Text = CStr(a)
End If
If c > a And a > b Then
Label1.Text = CStr(c)
Label2.Text = CStr(b)
End If
End Sub
可能有更简便的方法
首先声明变量ABC
ABC赋值 文本框.
在用判断语句
判断那个数值比较大...
判断之后赋值abc为标签的标题.
结束判断语句
Private Sub Command1_Click()
If Val(Text1.Text) < Val(Text2.Text) Then
Label1.Caption = "最小数：" & IIf(Val(Text1.Text) < Val(Text3.Text), Text1.Text, Text3.Text)
Label2.Caption = "最大数：" & IIf(Val(Text2.Text) < Val(Text3.Text), Text3.Text, Text2.Text)
Else
Label1.Caption = "最小数：" & IIf(Val(Text2.Text) < Val(Text3.Text), Text2.Text, Text3.Text)
Label2.Caption = "最大数：" & IIf(Val(Text1.Text) < Val(Text3.Text), Text3.Text, Text1.Text)
End If
End Sub

vb程序设计教程答案

Option Explicit
Private Sub Command1_Click()
Dim a() As Integer
Dim i, j, n
ReDim a(9, 9)
For i = 1 To 8
Print Tab(25 - i * 2);
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)
Print a(i, j);
Next j
Print
Next i
End Sub
Option Explicit
Private Sub Command1_Click()
Dim a() As Integer
Dim i, j, n
ReDim a(9, 9)
For i = 1 To 8
Print Tab(25 - i * 2);
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)
Print a(i, j);
Next j
Print
Next i
End Sub
////////////////////////////////或者这样////////////////////////////
Private Sub Form_click()
Dim a() As Single
n = Val(InputBox("请输入行数", "杨辉三角"))
ReDim a(n + 1, n + 1)
For i = 1 To n
Print Tab(10);
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)
Print a(i, j);
Next j
Print
Next i
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
Dim N As Integer, I As Integer, J As Integer
N = 8

Dim SS() As Integer
ReDim SS(1 To N, 1 To N)

For I = 1 To N
SS(I, 1) = 1
SS(I, I) = 1
Next

For I = 3 To N
For J = 2 To I - 1
SS(I, J) = SS(I - 1, J - 1) + SS(I - 1, J)
Next
Next

For I = 1 To N
For J = 1 To I
Print SS(I, J) & vbTab;
Next
Print
Next
End Sub
Dim a As Integer
Dim i As Integer = 0
Dim forty As Integer = 0
Dim seventy As Integer = 0
Dim aboveSeventy As Integer = 0
For i = 0 To 99
Randomize()
a = 100 * Rnd()
If (a < 40) Then
forty += 1
ElseIf a >= 40 And a <= 70 Then
seventy += 1
Else
aboveSeventy += 1
End If
Next
MessageBox.Show(forty & " " & seventy & " " & aboveSeventy)

智慧树知到《VisualBasic程序设计（吉林医药学院）》章节测试答案

智慧树知到《VisualBasic程序设计（吉林医药学院）》章节测试答案

第一章章节测试

1、以下关于VB语言的说法中，正确的是（）。

A:VB是一种面向过程的语言

B:VB是一种面向对象的语言

C:VB是一种低级语言

D:VB是一种机器语言

正确答案：VB是一种面向对象的语言

2、在Visual Basic环境下，当写一个新的Visual Basic程序时，所做的第一件事是（）。

A:编写代码

B:新建一个工程

C:打开属性窗口

D:进入Visual Basic环境

正确答案：新建一个工程

3、以下可以构成语句的是（）。

A:对象名.属性

B:对象名.方法名

C:对象名.事件名

D:对象名.函数名

正确答案：对象名.方法名

4、（）是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。

A:文件

B:属性

C:方法

D:窗体

正确答案：方法

5、下列不是Visual Basic 文件的是（）。

A:.frm文件

B:.bas

C:.cls文件

D:.txt

正确答案：*.txt

6、下列不能打开工具箱窗口的操作是（）。

A:执行“视图”菜单中的“工具箱”命令

B:按Alt+F8键

C:单击工具栏上的“工具箱”按钮

D:按Alt+V，然后按Alt+X键

正确答案：按Alt+F8键

7、下列可以打开立即窗口的操作是（）。

A:Ctrl+D

B:Ctrl+E

C:Ctrl+F

D:Ctrl+G

正确答案：Ctrl+G

8、Visual Basic6.0集成环境的主窗口中不包括（）。

A:标题栏

B:菜单栏

C:状态栏

D:工具栏

正确答案：状态栏

9、在Visual Basic中，不能关闭的窗口是（）。

A:窗体设计器窗口

B:工程窗口

C:属性窗口

D:立即窗口

正确答案：工程窗口

10、Visual Basic是一种面向对象的可视化程序设计语言，采取了（）的编程机制。

A:从窗体开始执行

B:按书写顺序执行

C:从主程序开始执行

D:事件驱动

正确答案：事件驱动

第二章章节测试

1、下列符号常量的声明中，（）是不合法的。

A:Const a As Single=1.1

B:Const a As Integer=“12”

C:Const a As Double=Sin（1）

D:Const a =“OK”

正确答案：Const a As Integer=“12”

2、表达式“Turbo”+“c”>“Ture”+“Basic”的值是（）。

A:True

B:False

C:Null

D:出错信息

正确答案：False

3、执行下列语句后，V的值是（）。A=“56789” V=Val（Mid（A，3，2））

第三版VB程序设计教程课后习题答案 龚沛曾主编的

习题一
答案在教材上找。
习题二
1.对象指现实世界中的实体。每个对象有自己的特征(属性)、行为(方法)和发生在该对象上的活动(事件)。
类是对同一种对象的集合与抽象。类包含所创建对象的属性数据，以及对这些数据进行操作的方法。封装和隐藏是类的重要特性，将数据结构和对数据的操作封装在一起，类的内部实现细节对用户来说是透明的。
VB工具箱中的可视图标是VB系统设计好的标准控件类。通过将控件类实例化，得到真正的控件对象。在窗体上画一个控件，就将类转换为对象，创建了一个控件对象。
VB中常用的对象是控件。此外，VB还提供了系统对象。窗体是个特例，它既是类也是对象。当向一个工程添加一个新窗体时，实质就由窗体类创建了一个窗体对象。
对象的三要素：属性、事件和方法。
属性：存放对象的数据(决定对象外观及功能)对象属性的设置方法：在设计阶段，利用属性窗口直接设置属性值；程序运行时，通过语句[对象名.]属性名=属性值。若属性只能在设计阶段设置，在程序运行阶段不可改变，称为只读属性。
事件：发生在对象上的事情。同一事件，对不同的对象，会引发不同的反应。
事件过程：应用程序处理事件的步骤。应用程序设计的主要工作就是为对象编写事件过程的代码。
方法：面向对象的程序设计语言，为程序设计人员提供了一种特殊的过程和函数。方法是面向对象的，调用时一定要指明对象。
2.窗体和控件具有的基本属性“
(1) Name属性：名称
所创建的对象名称,在程序中引用。
(2) Caption属性：标题
该属性决定了对象上显示的内容。
(3) Height、Width、Top和Left属性
决定对象的大小和位置。
(4) Enabled 属性：对象是否允许操作
(5) Visible 属性：对象是否可见
(6) Font 属性组：文本的外观
FontName字体、FontSize大小
FontBold粗体、FontItalic斜体
FontStrikethru 删除线
FontUnderline 下划线
(7) ForeColor属性：前景颜色
(8) BackColor属性：背景颜色
(9) MousePointer属性：鼠标指针类型, 设置值范围0～15，由系统指定 。若为99，由用户提供的图形文件定义鼠标指针形状。
(10) MouseIcon属性：在MousePointer属性值为99时，存放自定义的鼠标图标文件（.ico或.cur）。图标库在Graphics目录下。
3.窗体的事件：Load事件是在窗体被装入工作区时触发的事件。当应用程序启动，自动执行该事件，该事件通常用来在启动应用程序时对属性和变量进行初始化。
窗体的方法:（1）Print方法
用来显示文本内容，格式：[对象.]print 表达式
（2）Cls方法
清除运行时在窗体或图形框中产生的文本或图形, Cls方法不能清除窗体在设计时的文本和图形。
格式：[对象.]cls
（3）Move方法
可移动窗体或控件，并可改变其大小。
语法格式如下：
[对象.]Move 左边距离[,上边距离[,宽度[,高度]]]
4.标签作用：用于显示文本(输出)信息，不能作为输入信息的界面。其内容只能通过Caption属性设置或修改，不能直接编辑。
5.文本框是一个文本编辑区域，可以在该区域输入、编辑、修改和显示正文内容。在VB中字符长度以字为单位，也就是一个西文字符与一个汉字都是一个字，长度为1。
重要属性(1) Text 显示或输入的正文内容。
(2) Maxlength 设置文本框可输入的文字最大长度。默认值为0，表示可以输入任意长字符串。
(3) MultiLine 多行属性
设置为True时，文本框可以输入或显示多行正文，同时具有文字处理器的自动换行功能，按Enter键可插入一空行。
(4) ScrollBars 滚动条属性
0-None 无滚动条
1-Horizontal 水平滚动条
2-Vertical 垂直滚动条
3-Both 同时加水平和垂直滚动条
注意：当MultiLine为True时，ScrollBars才有效
(5) PassWordChar 设置显示文本的替代符。例如，当设置为“*”，则在文本框输入的内容均以“*”显示，而存储的值是用户输入的原文。一般用于设置口令的输入。
当MultiLine为True时，该属性不起作用，密码不允许多行。
(6) Locked 指定文本控件是否可被编辑，默认值为False(可编辑)，当设置为True时，文本控件相当于标签控件的作用。
注意：Locked与Enabled的区别。
(7)文本内容进行选择操作的三个属性
SelStart 选定的正文开始位置
SelLength 选定的正文长度
SelText 选定的正文内容
这3个属性互相关联,例如设置SelStart、SelLength后，SelText 自动存放指定的文本。
注意：属性窗口中没有这三个属性，只能在程序代码中使用。

6.文本框的事件：(1) Change事件：当Text属性值发生改变时引发该事件
(2) KeyPress事件：按下并且释放键盘上的一个键时，引发焦点所在控件的KeyPress事件，所按键的值存放在参数KeyAscii中。对回车的判断 KeyAscii=13
7.文本框最有用的方法是SetFocus，把光标移到指定的文本框中。
8.命令按钮 Picture属性：按钮可显示图片文件(.bmp和.Ico)，当Style为1时有效。
10. 启动窗体时将命令按钮定位在窗体中央的代码
Private Sub Form_Load()
Command1.Left = Form1.ScaleWidth / 2 - Command1.Width / 2
Command1.Top = Form1.ScaleHeight / 2 - Command1.Height / 2
End Sub
11．vb图片文件在 C:\Program Files\Microsoft Visual Studio\Common\Graphics 文件夹。
安装VB时可选择是否安装这些图片文件。
习题三
1. 合法常量：
(1) Double
(2) 错误
(3) Double
(4) Double
(5) 错误
(6) Integer
(7) String
(8) String
(9) Date
(10) Double
(11) 错误（汉字字符）
(12)Integer(八进制)
(13) 错误（八进制无数码8）
(14) Integer
(15) Boolean
(16) 错误
(17) 错误（十六进制无数码g）
(18) Single

说明：浮点型变量默认为Double类型而非Single。
2. 合法变量名：
(1) √
(2) √
(3) 误：数字开头
(4) 误：含空格
(5) 误：关键字
(6) √
(7) 误：关键字
(8) 误：有括号
(9) √
(10) √
(11) √
(12) √（汉字字符可作为变量名，但不常用，且此名称易误解）
变量命名规则见P.41-42。
字母（汉字）开头，字母（汉字）、数字、下划线组成，长度为1-255个字符；关键字不可作为变量名，但可在变量名中嵌入关键字；不区分大小写。
常量、数组、类型、函数、过程、对象命名规则与此相同。常量名通常全用大写。
3. 写VB表达式
(1) Abs(x + y) + z ^ 5
(2) (1 + x * y) ^ 6
(3) (10 * x + Sqr(3 * y)) / (x * y)
(4) (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
(5) 1 / (1 / r1 + 1 / r2 + 1 / r3)
(6) Sin(45 * 3.14159 / 180) + (Exp(10) + Log(10)) / Sqr(x + y + 1)
4. 根据条件写表达式
(1) 随机产生大写字母 Chr(Int(Rnd * (Asc("L") - Asc("C") + 1) + Asc("C")))
(2) [100,200]内的随机数 Int(Rnd * 101) + 100
(3) 点(x,y)位于第一或第三象限 x > 0 And y > 0 Or x < 0 And y < 0 或 x * y > 0
(4) x是5或7的整数倍 x Mod 5 = 0 Or Int(x / 7) = x / 7
(5) 将两位整数x的个位与十位对换 x \ 10 + (x Mod 10) * 10
(6) 四舍五入取两位小数 Round(x, 2)
(7) 字符变量C是字母字符（不区分大小写）——准确地说是：字符变量C的第一个字符是字母
C >= "A" And C <= "Z" Or C >= "a" And C < "z"
或 UCase(C) >= "A" And UCase(C) <= "Z"
或 LCase(C) >= "a" And LCase(C) <= "z"
(8) 字符变量S第5个字符起取6个字符 Mid(S, 5, 6)
(9) 10≤x＜20 10 <= x And x < 20
(10) x，y至少有一个小于z x < z Or y < z
(11)x，y都大于z x > z And y > z
5. 写表达式的值
(1) 188 ——注意运算的优先级顺序，以及整除运算“\”的计算
(2) 200100 —— 计算100 + "100"时，由于两个操作数类型不同，在可能的情况下自动采用精度较高的类型，即把字符型转换为数值型，100 +100 得到200；然后进行字符串连接运算200 & 100 ，再自动将两个数值转换为字符串，得200100。
(3) 68.56 ——在四舍五入函数产生之前，这就是四舍五入的计算方法
(4) 876554 ——先进行字符串的“+”运算，再转换成数值。在变量名和函数名后可加上类型符，以强调其类型，但不是必须的。
(5) 2000-2-29
(6) 6
6．Shell函数调用
i = Shell("mspaint.exe", 1) '启动画图
i = Shell("C:\Program Files\Microsoft Office\OFFICE11\winword.exe", 1) '启动Word
说明：“画图”是Windows本身提供的程序，可以省略路径。
8. 答：单精度浮点型
第7，9题答案在教材中找。
习题四
第1，3，5，8题答案在教材中找。
2. 赋值语句的错误
（1）10x 不能做变量名。
上机验证结果：VB将10识别为行号，x = Sin(x) + y是为变量x赋值。故无语法错误。
（2）Sqr函数的参数为负数。
上机验证结果：“无效的过程调用或参数”
（3）赋值号左边不是变量名。
上机验证结果：“缺少子程序、函数或属性”
（4）除数为0
上机验证结果：“溢出”。
4. [答案略]
说明：小数位可以使用四舍五入函数Round或输出格式函数Format。例如Round(x, 2)和Format(x, “0.00”)均可使结果只保留两位小数。但如果四舍五入后要进行数值运算，则使用Round函数，例如z=Round(x,2)+Round(y,2)。而Format函数通常只用于输出格式设置。
6．指出错误
（1）“≥”应改为“>=”，前者是中文字符，不具有运算功能。
（2）“10
<x<20”应改为“10<x and x<20”，否则运行结果错误。
7．写条件语句

（1）

Dim c As String

c = InputBox("c=")

If Mid(c, 3, 1) = "C" Then

MsgBox "Yes"

Else

MsgBox "No"

End If

（2）

# 使用If语句

Dim x As Single, y As Single

x = Val(InputBox("x="))

If x > 20 Then

y = x ^ 2 + 3 * x + 2

ElseIf x >= 10 Then

y = Sqr(3 * x) - 2

ElseIf x > 0 Then

y = 1 / x + Abs(x)

End If

Print "y="; y

# 使用Select Case语句

Dim x As Single, y As Single

x = Val(InputBox("x="))

Select Case x

Case Is > 20

y = x ^ 2 + 3 * x + 2

Case Is >= 10

y = Sqr(3 * x) - 2

Case Is > 0

y = 1 / x + Abs(x)

End Select

Print "y="; y

（3）

# 使用If语句

Dim x As Single, y As Single, z As Single, Max As Single

x = Val(InputBox("x="))

y = Val(InputBox("y="))

z = Val(InputBox("z="))

Max = x

If y > Max Then Max = y

If z > Max Then Max = z

Print "Max="; Max

# 使用IIF函数

x = Val(InputBox("x="))

y = Val(InputBox("y="))

z = Val(InputBox("z="))

Max = IIf(x > y, x, y)

Max = IIf(z > Max, z, Max)

Print "Max="; Max

9. 计算循环次数

（1） 6

（2）19

（3）0

（4）死循环直至溢出

10. 40号语句执行 4次；第50 号语句执行12次；

执行第90号语句输出的结果是： 13，0，2

说明：该程序为嵌套循环，其中外循环由j值变化（1，4，7，10）控制执行4次，当j值为13时结束循环；内循环由k值变化（6，4，2）控制执行3次，当k值为0时结束循环。第40 行是外循环的循环体，故执行4次；第50 行是内循环的循环体，故执行4*3=12次。

11. 可以定一个较大的循环次数，在循环体中根据条件用Exit For退出。

但这种情况通常用Do While循环控制。

12. 编程（并非唯一正确答案）

（1）

Dim i As Integer, s As Integer

For i = 1 To 10

s = s + (i + 1) * (2 * i + 1)

Next i

Print "s="; s

（2）

Dim i As Integer, n3 As Integer, n7 As Integer

For i = 1 To 100

If i Mod 3 = 0 Then n3 = n3 + 1

If Int(i / 7) = i / 7 Then n7 = n7 + 1

Next i

Print "1-100中3的倍数有"; n3; "个"

Print "1-100中7的倍数有"; n7; "个"

（3）

Dim s1 As String, s2 As String, i As Integer

s1 = InputBox("Input String")

s2 = ""

For i = 1 To Len(s1)

s2 = Mid(s1, i, 1) + s2

Next i

Print "原序："; s1

Print "反序："; s2

或

For i = Len(s1) To 1 Step -1

s2 = s2 + Mid(s1, i, 1)

Next i

13. 输出字符串“10100”。该程序功能是将十进制数转化为二进制。

说明：要理解该程序需要了解数制转换的计算方法（有兴趣者参看百度百科http://baike.baidu.com/view/1426817.htm）。48是字符"0"的ASCII码。

14. 运行时输出 22 484

该程序功能是求x和y最大公约数和最小公倍数。

说明：此算法称为“辗转相减法”。可对照例4.17的辗转相除（辗转求余）法。

15．[50，100]间的20个随机数，求最大值、最小值、平均值。

Dim x As Integer, sum As Integer, aver As Single

Dim n%, i%, max%, min%

Randomize

max = 50: min = 100: n = 20

For i = 1 To n

x = Int(Rnd * 51 + 50)

List1.AddItem x

sum = sum + x

If x > max Then max = x

If x < min Then min = x

Next i

aver = sum / n

Print "最大值："; max, "最小值："; min, "平均值："; aver

习题五

1. 指定数组的默认下界 Option Base 1

2．合理的数组声明

（1）错。定义数组不可用变量（教材99页）。

（2）正确。该数组下标为0-11。

（3）错。VB中数组下标用圆括号。

（4）正确。三维数组三个下标分别为0-1，0-1，0-2，共12个元素。

（5）错误。非动态数组，不可重定义。

（6）错误。动态数组重定义时不可改变数据类型。

（7）正确。二维数组两个下标分别为0-2，0-3，共12个元素。

（8）语法错误，二维数组定义中漏写逗号——可能是印刷错误，加上此逗号则正确。

3．当引用数组元素时下标值小于定义的最小下标，或大于最大下标时，会发生“下标越界”错误。

4．数组名：a ；数组类型：Single（单精度浮点型）；维数：二维；

各维的上下界：第一维下界（最小下标）为 -1，上界（最大下标）为2，

第二维下界（最小下标）为 0，上界（最大下标）为3；

数组的大小：4行4列共16个元素

以矩阵的格式输出二维数组：

For i = -1 To 2

For j = 0 To 3

Print a(i, j);

Next j

Print

Next i

或写成更加通用的代码形式：

For i = LBound(a, 1) To UBound(a, 1)

For j = LBound(a, 2) To UBound(a, 2)

Print Tab(j * 8); a(i, j);

Next j

Print

Next i

6．一维字符数组

Dim a(1 To 20) As String

Private Sub Command1_Click() '(1)随机产生字符串

Dim i As Integer, j As Integer, n As Integer, c As String * 1

Randomize

For i = 1 To 20

a(i) = "" '将第i个元素清空

n = Int(Rnd * 10 + 1) '产生[1,10]的随机数

For j = 1 To n 'a(i)中有n个字符

c = Chr(Int(Rnd * 26 + 97)) '随机产生字母97是字母a的ASCII码

a(i) = a(i) + c

Next j

Next i

End Sub

Private Sub Command2_Click() '(2)输出字符串

Dim i As Integer

For i = 1 To 20

Print Tab(((i - 1) Mod 5) * 11); a(i);

If i Mod 5 = 0 Then Print

Next i

End Sub

Private Sub Command3_Click() '(3)最长的字符串

Dim i As Integer, imax As Integer

imax = 1

For i = 2 To 20

If Len(a(i)) > Len(a(imax)) Then

imax = i

End If

Next i

Print "最长的字符串："; a(imax)

End Sub

第7，8题答案在教材中找。

第9题“自定义变量”含义不明，暂时无法回答。

第5，10 题 [暂略]

习题六

第1，2，6-8题答案可在教材中找到。

3．指出过程说明中的错误

（1）Sub子过程不应该定义类型

（2）函数与形式参数不应该同名

（3）数组作为形式参数时，应使用传地址方式，不可使用传值（ByVal）

（4）形式参数应该是变量或数组名，不可以是一个数组元素

4．指出调用过程语句的错误

（1）无语法错误，但因形参sum所对应的实参是常量3，故计算结果无法传递给主调程序。

（2）实参变量c与形参sum的类型不一致。

（3）类似于（1），形参sum所对应的实参是表达式a+b，故计算结果无法传递给主调程序。

（4）类似于（1）和（2），形参sum所对应的实参是表达式Sqr(c)，故计算结果无法传递给主调程序。另外srq(a)存在语法错误（拼写错）。

（5）与（2）相同，实参c与形参sum的类型不一致。

5．迭代法求平方根

（1）自定义函数的定义及调用

Function FSqr1(a As Single) As Single

Dim x0 As Single, x As Single

x = a

Do

x0 = x

x = (x0 + a / x0) / 2

Loop While Abs(x - x0) > 0.00001

FSqr1 = x

End Function

Private Sub Command1_Click()

Dim x!, y!

x = Val(InputBox("x="))

If x >= 0 Then

y = FSqr1(x)

Print y

End If

End Sub

（2）自定义子过程的定义及调用

Sub FSqr2(a As Single, x As Single)

Dim x0 As Single

x = a

Do

x0 = x

x = (x0 + a / x0) / 2

Loop While Abs(x - x0) > 0.00001

End Sub

Private Sub Command2_Click()

Dim x!, y!

x = Val(InputBox("x="))

If x >= 0 Then

Call FSqr2(x, y)

Print y

End If

End Sub

（3）递归函数及调用 [略]

习题七

第1-9题，答案在教材上找；第10，12-14题，略。

11．检测Ctrl和F3同时按下的代码：

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If Shift = 2 And KeyCode = 114 Then MsgBox "HAHA"

End Sub

习题八

第1，2，6，7，9题答案可阅读教材找到。

3．写Open语句

（1） Open "Seqnew.dat" For Output As #1 '重写

或 Open "Seqnew.dat" For Append As #1 '添加

（2）Open "Seqold.dat" For Input As #2

（3）Open "Seqappend.dat" For Append As FreeFile

4．编程，将文件Text.dat 读入变量strTest。

Dim strTest As String

Open "Text.dat" For Input As #2

Do While Not EOF(2)

strTest = strTest + Input(1, #2)

Loop

8．本课程不涉及二进制文件。故此处以顺序文件读写方式编程。另外合并的结果可以是合并到其中某一个文件，也可以是合并到一个新的文件，此处代码是合并到其中一个文件F1.txt。

'方法一，在2号文件一次读一个字符并写入1号文件

Dim strTemp As String * 1

Open "d:\F1.txt" For Append As #1

Open "d:\F2.txt" For Input As #2

Do While Not EOF(2)

strTemp = Input(1, #2)

Print #1, strTemp; '注意结尾有分号，否则每个字符一行

Loop

Close

'方法二，在2号文件一次读一个字符并累加，最后将累加结果写入1号文件

Dim strTemp As String '注意方法一变量定义的区别

Open "d:\F1.txt" For Append As #1

Open "d:\F2.txt" For Input As #2

strTemp = ""

Do While Not EOF(2)

strTemp = strTemp + Input(1, #2)

Loop

Print #1, strTemp

Close

习题九

答案在教材上找。

习题十

答案在教材上找

设计一个窗体，计算一二次方程a*x*x+b*x+c=0的根。
</x<20”应改为“10

vb程序设计第三版的课后题答案

Private Sub Command1_Click()
FontSize = 15
FontName = "黑体"
ForeColor = vbRed
Print Text1.Text & "同学，你好！祝你学好vb程序设计"
Command3.Visible = True
Command2.Visible = True
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Label1.Caption = "你好！请输入你的姓名"
Command1.Caption = "确定"
Command2.Caption = "继续"
Command2.Visible = False
Command3.Caption = "结束"
Command3.Visible = False

End Sub
那么多同名的教材,哪个出版社?主编是谁?

VB语言程序设计实验指导与习题解答的内容提要

《VB语言程序设计实验指导与习题解答》是《VB语言程序设计教程》一书的配套指导教材。全书共分16章，前12章的内容是程序设计习题解答与实验指导，每章都包括知识点、习题解答、测试题及对应的实验内容，第13章是综合性实验，第14章和第15章是Visual Basic课程设计指导，第16章是自测综合练习题。《VB语言程序设计实验指导与习题解答》可作为高等院校VB程序设计课程的辅导教材，也适合单独作为学习VB语言的参考书。

那位朋友能告诉我这条VB程序设计题答案

Private Sub Command1_Click()
For i = 1 To 20
a = InputBox("请输入第" & i & "数")
Sum = Sum + Val(t)
t = t & a & Space(2)
Next
Print t
Print "总和为" & Sum
Print "平均数为" & Sum / 20
End Sub
新建一个工程，然后在窗体上添加一个Command控件，然后把代码复制过去
Private Sub Command1_Click()
Dim A As Integer, I As Integer, Sum As Long 'A用来存储你输入的数，I是循环变量，Sum用来存储总和
For I = 1 To 20
A = Val(InputBox("请输入第" & I & "个数"))
Sum = Sum + A
Print A;
Next
Print
Print "总和是：" & Sum
Print "平均数是：" & Sum / 20
End Sub