内容发布更新时间 : 2024/5/10 11:58:15星期一 下面是文章的全部内容请认真阅读。
Count = 0 Do while count <=100 ?请补充
Count = count + 1 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
第 51 页 共 32 页
Private Sub Timer1_Timer()
?请补充
Form1.Print Int(Rnd*10) + 1 End Sub
第五章 文件
一、填空题
1、顺序、随机、二进制
2、dir1的chang、list1.path=dir1.path 3、目录列表框
二、选择题
1、C 2、C
三、简答题
1、存放在外部存储介质上的数据和程序等。
2、文件的存取分为顺序型、随机型、二进制型，其编码方式分为ASCⅡ码文件和二进制文件。
3、顺序文件：文件中每一个字符都被假设为代表一个文本字符或者文本格式序列，数据被存储ANSI字符，这类文件的信息按照顺序从头到尾排列，只提供第一条记录的存储位置，因而顺序文件只用于要求少量空间，不经常进行数据修改的有规律的文件。
随机文件：随机文件由记录组成，能够随机存取相同长度的数据记录，每一数据记录内可以设计各种栏位，以容纳不同的数据，各数据记录长度相同，数据类型可以不同，随机文件有一定的磁盘空间的浪费。
二进制文件：二进制文件与随机文件类似，但不必限制记录的长度，可以用喜欢的方式存取文件，二进制访问能提供对文件的完全控制，通过使用二进制型访问可使磁盘空间的使用降到最小。 4、参见教材
第 52 页 共 32 页
5、Print #语句用来将一个或多个格式化的数据写入顺序文件，Write #语句的用法和Print #语句相似，不同的是：
? 输出的数据采用紧凑格式存放，数据项之间自动用逗号分开； ? 输出的字符串自动用引号扩起来。
6、在读取数据时，如果已到达文件结尾，继续读会被终止并产生一个错误。为了避免出错，常在读操作前用EOF函数检测是否已经达到文件末尾
四、编程题
1、参考代码如下：
Private Sub Command1_Click() Dim if1 As Integer, if2 As Integer 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()
第 53 页 共 32 页
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 = \ '首先选定文件 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
第 54 页 共 32 页
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
三、简答题
1、Image控件中图形可以伸展以适应控件的大小，而在PictureBox控件中权可通过调整控件的大小以适合图形的大小，图形本身单不伸缩，因此，当需要调整图形大小时，应使用Image控件。
2、程序运行时，在图形框中装入和删除图形是利用LoadPicture函数，只要参数为空或为零长度字符串，即可删除图形；否则，即为装入图形 3、颜色函数主要有：RGB、QBColor
四、编程题
1、参考代码如下：
Private Sub drvList_Change()
dirList.Path = drvList.Drive ' 设置当前驱动器 End Sub
第 55 页 共 32 页