If KeyAscii = 13 Then For i =2 To 5 If a(i)>ml Then m1 =a(j) m2 =i End If Next i End If Print m1 Print m2 End Sub
程序运行后，按回车键，输出结果是什么？ 2、阅读下面的程序，写出执行结果。
Private Sub Form_load() Form1.show d = 0 For a = 1 To 2 For b = 1 To a
For c = b To 5 d = d + 1 Next c Next b Next a Print d End Sub
五、编程题
1、在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1，要求每一秒在文本框
第 26 页
中显示一次当前的时间，请编程实现。
2、在Text1中输入任一英文字母，在Text2中显示该英文字母及其ASCII码值。要求在文本框Text2中显示出所有输入的英文字母及其ASCII码值，如下图所示。
Text1
Command1 Text2
3、编写一个程序，能够实现任意个整数的排序。
4、编程实现以下功能：用户首先分别在两个文本框中输入两个数，然后在具有“加、减、乘、除”等四个菜单项的“计算”菜单中单击某一项，即可在标签中显示出相应的结果或者错误提示。 5、编程实现任意两个数的“加、减、乘、除”。
6、编写一个程序，能够求任意个正整数的最大值和最小值。 7、编程求任意两个正整数的最大公约数。 六、程序分析填空题
1、建立一个如图所示的简单编辑器。用户在文本框（text1）中输入正文后，选中某些文本时可进行“剪切”、“复制”和“粘贴”操作。假设在窗体声明部分定义了一个变量str1，用于保存复制和剪切的内容，请把剪切按钮(btnCut)的Click事件补充完整。
程序运行界面：
第 27 页
Private Sub btnCut_Click() ?请补充 End Sub
2、计算1 + 2 + 3 + …… + 100的和并输出。请把下面用Do While ……Loop循环结构实现这一功能的代码补充完整。
Private Sub Form_Load()
Dim sum,count as Integer ?请补充
Do while count <=100 ?请补充 Loop
Text1.Text = sum End Sub
3、列表框控件（ListBox）支持多项选择，这项功能在对用户的兴趣爱好进行调查的时候显得非常好用，在下图所示的界面中列表框List1用于列出爱好选项，供用户进行多项选择。
第 28 页
请把下列代码补充完整，能够取得用户的所选爱好选项： Private Sub Command1_Click() Dim i As Integer Dim s As String
s = txtname.Text & \爱好\ For i = 0 To List1.ListCount - ?请补充 Next
Label3.Caption = s End Sub
4、要求利用计时器Timer1，在窗体Form1上每隔1秒钟打印一个1到10的随机整数，请把下列代码补充完整：
Private Sub Form_Load() Show
?请补充 End Sub
Private Sub Timer1_Timer()
?请补充
第 29 页
End Sub
第五章 文件
一、填空题
1、文件按存取方式及其组成结构可分为________________文件、__________文件和______________文件。 2、为了使文件列表框List1和目录列表框Dir1之间能产生同步效果，必须在______________事件过程中加入语句__________________________。
3、文件系统控件的作用是向用户显示系统中的文件，方便用户选择，它是一组控件的组合，包括：驱动器列表框、__ __和文件列表框。 二、选择题
1、利用下面哪个函数可判定访问文件时是否已到文件尾（ ）
A．LOF B．LOC C．EOF D．BOF
2、用于设置文件列表框控件显示文件类型的属性是（ ）
A．Filter B．Path C．Partern D．FileName 三、简答题 1、什么是文件？
2、文件存取分成几类，几种模式？
3、顺序文件、随机文件和二进制文件各有什么特点和用途？ 4、文件有哪几种类型？它们的区别是什么？ 5、请说明PRINT #和WRITE #语句的区别 6、EOF函数的功能是什么？ 四、编程题
1、实现二进制方式文件的复制。
2、如下图所示，实现一个简单的文件管理器。
第 30 页
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库推荐《VB程序设计》综合复习资料习题(6)在线全文阅读。
相关推荐：