1
Option Explicit
Private Sub Command1_Click()
Dim i%, j%, r!
i = Val(Text1.Text)
j = Val(Text2.Text)
Picture1.Print i; j;
Call gysh(i, j)
Picture1.Print "最大公约数是" & i
r = Val(InputBox("输入半径"))
Call S(r)
End Sub
Public Function gysh(m As Integer, n As Integer) As Integer
Dim t%
Do
t = m Mod n: m = n: n = t
Loop While t <> 0
End Function
Public function S(r!)
Const pi = 3.1415926
S = pi * r ^ 2
MsgBox "圆面积为：" & S
End function
Public Function 定积分()
End Function2
Dim a() As Integer, i%, j%, n%, t%
Private Sub Command1_Click()
Picture1.Print "排序前的数组为："
n = Val(InputBox("请输入一个3到100的整数"))
ReDim a(1 To n)
Randomize
For i = 1 To n
a(i) = Int(Rnd * 100) + 1
Picture1.Print Tab(((i - 1) Mod 5) * 6); a(i);
Next i
End Sub
Private Sub Command2_Click()
Picture1.Print
Picture1.Print "排序后的数组为："
For i = 1 To n - 1
《VB程序设计》补修课试卷
一、单选题（每题2分，空20分）
1. VB6.0是一种面向 ( ) 的编程环境。
(A) 机器 (B) 对象
(C) 过程 (D) 应用
2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下 ( ) 语句是正确的。
(A) Forml.Caption=“欢迎使用VB”
(B) Forml.Caption='欢迎使用VB'
(C) Forml.Caption=欢迎使用VB
(D) Forml.Caption="欢迎使用VB"
3. 若要使命令按钮不可操作，要对 ( ) 属性进行设置。
(A) EnabIed (B)Visible
(C) Backcolor (D)Caption
4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过 ( ) 事件获得输入键值的ASCII码。
(A) Change (B) LostFocus
(C) KeyPress (D) GotFocus
5. 下面 是合法的变量名。
(A) X_yz (B) 123ab。 (C) integer (D) X-Y
6. 以下关系表达式 中，其值为False的是( ) 。
(A) "ABC">"AbC" (B) "女">"男"
(C) "BASIC"=UCase("basic) (D) "123"<"23"
第二章 简单的VB程序设计习题
一、 选择题
1. 假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先执行的操作是（ ）。
（A）单击窗体上没有控件的地方 （B）单击任一个控件
（C）不执行任何操作 （D）双击窗体的标题栏
2. 在VB中最基本的对象是（ ），它是应用程序的基石，是其它控件的容器。
（A）文本框 (B)命令按钮
（C)窗体 (D)标签
3. 有程序代码如下：text1.text=“visual basic” 则：text1、text和“visual basic”分别代表（ ）。
（A）对象，值，属性 (B) 对象，方法，属性
（C） 对象，属性，值 (D) 属性，对象，值
4. VB是一种面向对象的程序设计语言，（ ）不是面向对象系统所包含的三要素。
（A）变量 (B)事件 (C)属性 (D)方法
5. VB的一个应用程序至少包括一个（ ）文件，该文件存储窗体上使用的所有控件对象和有关的（ ）、对象相应的（ ）过程和（ ）代码。
（A）模块、方法、事件、程序 (B)窗体、属性、事件、程序
（C）窗体、程序、属性、事件 (D)窗体、属性、事件、方法
6. 在VB6.0环境已有应用程序的情况下，要重新建立一个工程的操作是（ ）。
（A）单击工具栏上的“添加工程”按钮
VB程序设计实例(全文)
在初中《信息技术》（福建教育出版社、《信息技术》教材编写组编著）八年级上册中，其中第二单元“VB程序设计基础”介绍了VB的开发环境和有关基础知识，初步体验了顺序、分支和循环结构的程序设计，让学生深刻体会到了可视化程序设计的一般过程。下面介绍本人在平时教学过程中对VB程序设计的一些体会和做法。
一、对教材中的“歌手大奖赛评分”程序进行拓展引伸，设计出比较智能多用途的程序
1.程序界面设计。新建一个标准exe工程，添加如表1所示的控件，并设置控件相应的属性。（见附图1）
表1“时钟的时针和分针重合的问题”程序用到的控件及其属性说明
2.算法分析。①请输入这次大奖赛的满分分数（如10分或100分等等）以及评委的人数，赋值给系统的公共变量public_min和public_i，这里要求事先定义好这两个系统的公共变量。
系统公共变量的定义方法：单击“工程”菜单，选择“添加模块”命令，在“Module1”框中输入Publicpublic_minAsSingle，public_iAsSingle即可。
②输入各评委的评分并计算。如果输入的数值超过事先输入的满分的值，系统则提示：“出错啦，分数超出范围。”在这里，用到了For…Next循环语句和输入函数InputBox（提示信息，标题，默认值，位置）和输出函数MsgBox“”。 ③输出：去掉一个最高分和一个最低分后其余分数的平均分。
3.编写事件过程。在“大奖赛评分系统”程序中，用户单击“请先输入满分和评委人数”按钮后，开始读入满分分数和评委人数。
二、下面针对教材的第103页和第107页的“创新活动”中的问题，给出比较详细的程序编写过程
（一）教材第103页“创新活动”的问题。在12小时制的时间中，在钟表正常走动的时候，有多少个时针和分针重合的位置？它们分别表示什么时刻（精确到秒即可）？
请编写一个界面如附图2所示的“时钟的时针和分针重合的问题”程序，单击“开始计算”按钮，程序计算并显示出答案，单击“退出”按钮，结束程序运行。
