VisualBasic程序设计教程第三版课后习题答案 - 图文 

.

Private Sub Command1_Click() Dim Char As String * 1 Char = Trim(Text1.Text)

Text2.Text = Text2.Text & Spc(5) & Char & _ Spc(10) & Str(Asc(Char)) & chr(13)&chr(10) Text1.SetFocus Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text) End Sub

3、具体代码略。 4、具体代码略。 5、具体代码略。 6、具体代码略。 7、具体代码略。

六、程序分析填空题

1、结果如下：

Private Sub btnCut_Click() ‘请补充

Str1 = text1.selText text1.selText = “” End Sub 2、结果如下：

Private Sub Form_Load()

Dim sum,count as Integer ‘请补充 Sum = 0 Count = 0 Do while count <=100 ‘请补充

Count = count + 1 46 / 52

.

Sum = sum + count Loop

Text1.Text = sum End Sub 3、结果如下：

Private Sub Command1_Click() Dim i As Integer Dim s As String

s = txtname.Text & \爱好\ For i = 0 To List1.ListCount - 1 ‘请补充

If List1.Selected(i) Then S = s & List1.List(i) End If Next

Label3.Caption = s End Sub 4、结果如下：

Private Sub Form_Load() Show

‘请补充

Timer1.Interval = 1000 End Sub

Private Sub Timer1_Timer()

‘请补充

Form1.Print Int(Rnd*10) + 1 End Sub

第五章 文件

一、填空题

47 / 52

.

1、顺序、随机、二进制

2、dir1的chang、list1.path=dir1.path 3、目录列表框

二、选择题

1、C 2、C

三、简答题

1、存放在外部存储介质上的数据和程序等。

2、文件的存取分为顺序型、随机型、二进制型，其编码方式分为ASCⅡ码文件和二进制文件。

3、顺序文件：文件中每一个字符都被假设为代表一个文本字符或者文本格式序列，数据被存储ANSI字符，这类文件的信息按照顺序从头到尾排列，只提供第一条记录的存储位置，因而顺序文件只用于要求少量空间，不经常进行数据修改的有规律的文件。

随机文件：随机文件由记录组成，能够随机存取相同长度的数据记录，每一数据记录内可以设计各种栏位，以容纳不同的数据，各数据记录长度相同，数据类型可以不同，随机文件有一定的磁盘空间的浪费。

二进制文件：二进制文件与随机文件类似，但不必限制记录的长度，可以用喜欢的方式存取文件，二进制访问能提供对文件的完全控制，通过使用二进制型访问可使磁盘空间的使用降到最小。 4、参见教材

5、Print #语句用来将一个或多个格式化的数据写入顺序文件，Write #语句的用法和Print #语句相似，不同的是：

? 输出的数据采用紧凑格式存放，数据项之间自动用逗号分开； ? 输出的字符串自动用引号扩起来。

6、在读取数据时，如果已到达文件结尾，继续读会被终止并产生一个错误。为了避免出错，常在读操作前用EOF函数检测是否已经达到文件末尾

四、编程题

1、参考代码如下：

Private Sub Command1_Click() Dim if1 As Integer, if2 As Integer

48 / 52

.

Dim sf1 As String, sf2 As String Dim buffer() As Byte

‘使用动态数组

sf1 = InputBox(\请输入源文件名：\源文件\sf2 = InputBox(\请输入目标文件名：\目标文件\If sf1 = \if1 = FreeFile

Open sf1 For Binary As if1 '打开源文件 if2 = FreeFile

Open sf2 For Binary As if2 '创建目标文件 ReDim buffer(1 To LOF(if1)) '分配内存 Get #if1, , buffer '读源文件 Put #if2, , buffer '写目标文件 Close '关闭所有打开的文件 MsgBox \完成复制。\End Sub

2、参考代码如下：

Private Sub cmdCopy_Click() Dim destFile As String

If fSource.FileName = \ '先选定文件 destFile = InputBox(\输入目标文件名：\

If destFile <> \ '不为空 FileCopy fSource.FileName, destFile '复制文件 End If End Sub

Private Sub cmdExit_Click() End End Sub

Private Sub cmdKill_Click() Dim res

If fSource.FileName = \ '首先选定文件

49 / 52

.

res = MsgBox(\确定要删除文件 \了吗？\vbOKCancel)

If res = vbOK Then ' 确认操作 Kill fSource.FileName '删除文件 End If End Sub

Private Sub cmdName_Click() Dim destFile As String

If fSource.FileName = \ '首先选定文件 destFile = InputBox(\输入新文件名：\If destFile <> \

Name fSource.FileName As destFile '命名（移动）文件 End If End Sub

Private Sub dirSource_Change()

fSource.Path = dirSource.Path '与文件列表关联 End Sub

Private Sub drvSource_Change()

dirSource.Path = drvSource.Drive '与文件夹关联 End Sub

第六章 图形操作

一、填空题

1、print、circle、line 2、loadpicture 3、autosize

二、选择题

1、D 2、A

三、简答题

50 / 52