1、 VB程序设计基础试题 得分评卷人 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是_。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是_。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为_的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_。 A. x+y=30B. y=*r*rC.
2、y=x+30D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为_。 A.“492”B.“249” C.“294” D.“429” 6. 将数学表达式abc写成Visual?Basic表达式，正确的是_。 A. a=b=c? ?B. a=b?Or?b=c? C. a=b?And?b=c? D. a=b?Not?b=c?7.为了把焦点移到文本框，所使用的方法是_。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_。 A.0，100 B.1，1
3、00 C.1，99 D.0，99 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_个元素。 A. 5 B. 36 C. 30 D. 不确定10. 下面过程定义语句合法的是_。 A. Function P1（P1） B. Function P1（By Val x As Integer） As Integer C. Sub P1（x As Integer）As Single D.Sub P1（ByVal x（）得分评卷人 二、填空题：（每空 3 分，共 18 分）1找出100以内能同时被3、5、7整除的最小5个数据。Private Sub Comm
4、and1_Click() Dim countn%, n% n = 1: countn = 0 Do n = n + 1 If _ Then Print n countn = countn + 1 End If Loop _ End Sub2. 输出杨辉三角前五行。 Option Base 1 Private Sub Command1_Click() Dim a(5, 5) As Integer, i As Integer, j As Integer For i = 1 To 5 a(i, 1) = 1 _ Next i For i = 1 To 5 For j = 2 To i - 1 _ N
5、ext j Next i For i = 1 To 5 For j = 1 To i Print a(i, j), Next j Print Next i End Sub 3. 求水仙花数。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, x As Integer For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 x =_ If _ Then Print x Next c Next b Next a End Sub 得分评卷人三、程序分析题：（每题 6
6、分，共 12 分） 1. 点击窗体时，分析程序的执行结果。 Private?Sub?Form_Click()? For?i?=?1?To?5? For?j?=?1?To?i? Print?*?; ?Next?j? Print? Next?i? End?Sub 程序功能结构分析： 程序执行结果：2. 单击命令按钮时，分析程序的执行结果。 Private Function P(N As Integer) dim sum% For I = 1 To N sum = sum + 1 Next I P = sum End Function Private Sub Command1_Click() S =
7、 P(1) + P(2) + P(3) + P(4) Print S; End Sub 程序功能结构分析： 程序执行结果：得分评卷人 四、基本操作题：（每题 10 分，共 20 分） 1. 编制如下图所示的程序。本程序根据如下公式， 由输入的身高计算标准体重。 男：标准体重（kg）= 身高（cm）-100 女：标准体重（kg）= 身高（cm）-1052. 编写一个窗体，窗体上有一个标签，并且标签上字的颜色可以不停的变化，标签从 窗体的上部向下部滚动出现。得分评卷人 五、综合应用程序设计题：（每题 15 分，共 30 分） 1 求：1+2！+3！+4！+ n!（n为任意输入的一个正整数）。2.
8、输入若干个学生的成绩（以-1为结束标志），存入一维数组中，统计输入的成绩个数、最高分、最低分、平均分和及格率。参考答案一、 选择题：（每空 2 分，共 20 分） 1. C 2. A 3. D 4. C 5. B6. C 7. A 8. D 9.C 10.B二、填空题：（每空 3 分，共 18 分）1. n mod 3=0 And n mod 5=0 And n mod 7=0 until countn=5 2. a(i,i)=1 a(i,j)=a(i-1,j)+a(i-1,j-1) 3. x=100*a+10*b+c x=a3+b3+c3三、程序分析题：（每题 6 分，共 12 分） 1.
9、程序功能结构分析：单击窗体，在窗体上输出五行星号，第1行输出一个*号，第2行输出两个*号，以此类推，第5行输出五个星号。 该程序结构为双重循环结构，循环体中 Print?*?语句一共执行15次。 程序执行结果： 2.程序功能结构分析：程序中定义了一个函数过程P，含一个形参N，其功能是求N个1之和。当点击命令按钮时，分别四次调用函数过程P，并分别将实参1、2、3、4传递给形参N。然后，将P返回的值求和，并输出。 程序执行结果：四、基本操作题：（每题 10 分，共 20 分）1. 参考答案：Private Sub Command1_Click() If Option1.Value Then Tex
10、t2.Text = Val(Text1.Text) - 100 Else Text2.Text = Val(Text1.Text) - 105 End IfEnd Sub 2. 参考答案： Private Sub Form_Click() Label1.Caption = 欢迎学习VB程序设计 & vbNewLine & Now Timer1.Interval = 500 End SubPrivate Sub Timer1_Timer()Label1.ForeColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256) If Label1.Top max Then max = s(i) If s(i) 60 Then count = count + 1Next i Text2.Text = max Text3.Text = min Text4.Text = sum / n Text5.Text = (count / n) * 100 & %End Sub
