《VB程序设计基础》试题一、选择题：（每空 2 分，共 20 分）1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。
A. 结构化程序设计B. 程序开发环境C. 事件驱动编程机制D. 程序调试技术2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。
A. 属性、事件、方法B. 控件、属性、事件C. 窗体、控件、过程D. 窗体、控件、模块3. 窗体模块保存在一个扩展名为__________的文件中。
A. basB. vbpC. vbgD. frm4. 下面正确的赋值语句是_________。
A. x+y=30B. y=π*r*rC. y=x+30D. 3y=x5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。
A.“492”B.“249”C.“294”D.“429”6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。
A. a<=b<=cB. a<=b Or b<=cC. a<=b And b<=cD. a<=b Not b<=c7.为了把焦点移到文本框，所使用的方法是___________。
A. SetFocusB.VisibleC.RefreshD.GetFocus8. INT（100*RND）产生的随机整数的闭区间是_____________。
A.[0，100]B.[1，100]C.[1，99]D.[0，99]9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个元素。
A. 5B. 36C. 30D. 不确定10. 下面过程定义语句合法的是____________。
A. Function P1（P1）B. Function P1（By Val x As Integer ） As IntegerC. Sub P1（x As Integer ）As SingleD.Sub P1（ByVal x （））1．找出100以内能同时被3、5、7整除的最小5个数据。
Private Sub Command1_Click()Dim countn%, n%n = 1: countn = 0Don = n + 1If ___________________________________________ ThenPrint ncountn = countn + 1End IfLoop _______________________End Sub2. 输出杨辉三角前五行。
Option Base 1Private Sub Command1_Click()Dim a(5, 5) As Integer, i As Integer, j As IntegerFor i = 1 To 5a(i, 1) = 1二、填空题：（每空 3 分，共 18 分）_____________________________Next iFor i = 1 To 5For j = 2 To i - 1________________________________Next jNext iFor i = 1 To 5For j = 1 To iPrint a(i, j),Next jPrintNext iEnd Sub3. 求水仙花数。
Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, x As IntegerFor a = 1 To 9For b = 0 To 9For c = 0 To 9x =_____________________If ____________________________ Then Print x Next cNext bNext aEnd Sub1. 点击窗体时，分析程序的执行结果。
Private Sub Form_Click()For i = 1 To 5For j = 1 To iPrint "* ";Next jPrintNext iEnd Sub程序功能结构分析：程序执行结果：2. 单击命令按钮时，分析程序的执行结果。
Private Function P(N As Integer)dim sum%For I = 1 To Nsum = sum + 1Next I三、程序分析题：（每题 6 分，共 12 分）P = sumEnd FunctionPrivate Sub Command1_Click()S = P(1) + P(2) + P(3) + P(4)Print S;End Sub程序功能结构分析：程序执行结果：1. 编制如下图所示的程序。
本程序根据如下公式，由输入的身高计算标准体重。
男：标准体重（kg ）= 身高（cm ）-100女：标准体重（kg ）= 身高（cm ）-105四、基本操作题：（每题 10 分，共 20 分）2. 编写一个窗体，窗体上有一个标签，并且标签上字的颜色可以不停的变化，标签从 窗体的上部向下部滚动出现。
1． 求：1+2！+3！+4！+……+ n!（n 为任意输入的一个正整数）。
五、综合应用程序设计题：（每题 15 分，共 30 分）2. 输入若干个学生的成绩（以-1为结束标志），存入一维数组中，统计输入的成绩个数、最高分、最低分、平均分和及格率。
参考答案一、选择题：（每空 2 分，共 20 分）1. C2. A3. D4. C5. B6. C7. A8. D9.C 10.B二、填空题：（每空 3 分，共 18 分）1. n mod 3=0 And n mod 5=0 And n mod 7=0 until countn=52. a(i,i)=1 a(i,j)=a(i-1,j)+a(i-1,j-1)3. x=100*a+10*b+c x=a^3+b^3+c^3三、程序分析题：（每题 6 分，共 12 分）1. 程序功能结构分析：单击窗体，在窗体上输出五行星号，第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 ThenText2.Text = Val(Text1.Text) - 100ElseText2.Text = Val(Text1.Text) - 105End IfEnd Sub2.参考答案：Private Sub Form_Click()Label1.Caption = "欢迎学习VB程序设计" & vbNewLine & NowTimer1.Interval = 500End SubPrivate Sub Timer1_Timer()Label1.ForeColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))If Label1.Top < Form1.Height ThenLabel1.Top = Label1.Top + 50ElseLabel1.Top = 0End IfEnd Sub五、综合应用程序设计题：（每题 15 分，共 30 分）1.参考答案：Private Sub Command1_Click()Dim n As Integer, sum As Double, f As Double, i As Integersum = 1f = 1n = Val(Text1.Text)For i = 2 To n Step 1f = f * isum = sum + fNext iText2.Text = Str(sum)End Sub2.参考答案：Option Base 1Private Sub Command1_Click()Dim s(100) As Single, n As Integer, max As Integer, min As Integer, sum As Single, f As Single, i As Integer, count As Integer n = 0: count = 0sum = 0For i = 1 To 1000s(i) = InputBox("请输入第" & i & "个学生的成绩：", "成绩录入") If s(i) = -1 Then Exit Forn = n + 1Print "第" & i & "个学生的成绩：" & s(i)Next iText1.Text = nmax = 0min = 100For i = 1 To nsum = sum + s(i)If s(i) > max Then max = s(i)If s(i) < min Then min = s(i)If s(i) > 60 Then count = count + 1Next iText2.Text = maxText3.Text = minText4.Text = sum / nText5.Text = (count / n) * 100 & "%"End Sub《VB程序设计基础》试卷第11 页共11 页。