VB程序设计试题与答案

1、VB程序设计基础试题得分评卷人、选择题:（每空2分，共20分）1.与传统的程序设计语言相比'Visual Basic最突出的特点是A.结构化程序设计B.程序开发环境C.事件驱动编程机制D.程序调试技术2. Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是.A.C.A.属性、事件、方法窗体、控件、过程窗体模块保存在一个扩展名为bas B. vbp C. vbgF面正确的赋值语句是A. x+y=30A.B.D.D. frm控件、属性、事件窗体、控件、模块的文件中。B. y= n *r*rC.y=x+30D. 3y=x设 S=“ 492”，表达式 Rig

2、ht(S,1)+Left ( S,1)+Mid( S,2,1)的值为“492”B. “249”C.“ 294”D. “429”将数学表达式aw bw c写成Visual Basic表达式，正确的是A.a<=b<=cB. a<=b Or b<=cC.a<=bAnd b<=cD.a<=b Not b<=c7.为了把焦点移到文本框，所使用的方法是A. SetFocus B.Visible C.RefreshD.GetFocus8. INT (100*RND)产生的随机整数的闭区间是A.0,100B.1,100C.1,99D.0, 999.一个数组说明为

3、Dim a(0 to 5, 1 to 5) As In teger，则该数组共有A. 5元素。B. 36C. 30D.不确定10.下面过程定义语句合法的是«VB程序设计基础试卷第4页共11页A.Fun ction P1( P1) B.Function P1 (By Vai x As Integer ) As IntegerC. Sub P1(X As In tegerAs Sin gleD.Sub P1(ByVai X ()得分评卷人二、填空题:（每空3分，共18分）1. 找出100以内能同时被3、5、7整除的最小5个数据。Private Sub Comma nd1_Click()D

4、im cou ntn%, n%n = 1: countn = 0DoIfThe nPrint n countn = countn + 1End IfLoopEnd Sub2. 输出杨辉三角前五行。Op tion Base 1Private Sub Comma nd1_Click()Dim a(5, 5) As In teger, i As In teger, j As In tegerFor i = 1 To 5a(i, 1) = 1Next iFor i = 1 To 5For j = 2 To i - 1Next jNext iFor i = 1 To 5For j = 1 To iPri

5、nt 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 9IfThen Print xNext cNext bNext aVB 程序设计基础试卷第 5 页 共11 页End Sub得分评卷人三、程序分析题：（每题6分，共12分）«VB程序设计基础试卷第11页共11页1.点击窗体时，分析程序的执行结果。P

6、rivate Sub Form_Click()For i = 1 To 5Forj = 1 To iPrintNext jPrintNext iEnd Sub程序功能结构分析:程序执行结果:2.单击命令按钮时，分析程序的执行结果。Private Fun ction P(N As In teger)dim sum%For I = 1 To Nsum = sum + 1Next IP = sum品G駅T二 XEnd FunctionPrivate Sub Comman _Click()175f r BKi« HIM1!计算 llbh JIIIBLblBliM IlliumS = P (1

7、) + P(2)+锻跻T5Print S;End Sub性别程序功能结构分析女程序执行结果:得分评卷人四、基本操作题：（每题10分，共20分）1.编制如下图所示的程序。本程序根据如下公式,由输入的身高计算标准体重。男：标准体重（kg）=身咼（cm） -100女：标准体重（kg）=身高（cm） -1052.编写一个窗体，窗体上有一个标签，并且标签上字的颜色可以不停的变化，标签从窗体的上部向下部滚动出现。欢迎学习肝程序设计£0L4-l得分评卷人1 . 求：1+2! +3!五、综合应用程序设计题：（每题15分，共30分）+4! + n! （ n为任意输入的一个正整数）。2.输入若干个学生的

8、成绩（以-1为结束标志），存入一维数组中，统计输入的成绩个数、最高分、最低分、平均分和及格率。«.学生康绩统计30896072SO录入成绩的总数活除ft低分平均分eo退出1入学生的咸嶺为t 2八学生的咸境为: 学生的咸绩为: 学生的成绩为: '、学生的咸鎮为:n mod 3=0 And n mod 5=0 And n mod 7=0un til countn=5参考答案2.a(i,i)=1a(i,j)=a(i-1,j)+a(i-1,j-1)3.x=100*a+10*b+cx=a3+b3+c3三、程序分析题：（每题6分，共12分）1.程序功能结构分析：单击窗体，在窗体上输出五行

9、星号,第1行输出一个*号，第2行输出两个*号，以此类推，第5行输出五个星号。 该程序结构为双重循环结构，循环体中Print "* "语句一共执行15次。程序执行结果:2.程序功能结构分析：程序中定义了一个函数过程P,含一个形参N,其一、选择题：（每空2分，共20分）1. C2. A3. D4. C5. B6. C7. A8. D9.C10.B二、填空题：（每空3分，共18分）1.P,功能是求N个1之和。当点击命令按钮时，分别四次调用函数过程 并分别将实参1、2、3、4传递给形参N。然后，将P返回的值求和, 并输出。程序执行结果:四、基本操作题：（每题10分，共20分）1.

10、参考答案：Private Sub Command1_Click()If Option1.Value ThenText2.Text = Val(Text1.Text) - 100ElseText2.Text = Val(Text1.Text) - 105End IfEnd Sub2.参考答案：VB 程序设计基础试卷第 14 页 共 11页Private Sub Form_Click()Label1.Caption = " 欢迎学习 VB 程序设计 " & vbNewLine & NowTimer1.Interval = 500End SubPrivate Su

11、b 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 Int

12、egersum = 1n = Val(Text1.Text)For i = 2 To n Step 1sum = sum + fNext iText2.Text = Str(sum)End Sub 2. 参考答案：Option Base 1Private Sub Command1_Click()min As Integer,Dim s(100) As Single, n As Integer, max As Integer,sum As Single, f As Single, i As Integer, count As Integern = 0: count = 0sum = 0For i = 1 To 1000s(i) = InputBox("请输入第 " & i & " 个学生的成绩：", " 成绩录入 ")If s(i) = -1 Then Exit ForPrint "第" & i & " 个学生的成绩： " & s(i)Next iText1.Text = nmax = 0min = 100For i = 1 To nsum = sum + s(i)If s(i) > m