VB程序设计试题与答案

1.2.3.4.5.6.7.8.9.10.VB 程序设计基础试题得分评卷人一、选择题：(每空 2 分，共 20 分)与传统的程序设计语言相比Visual Basic最突出的特点是-A. 结构化程序设计B. 程序开发环境C. 事件驱动编程机制D. 程序调试技术Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是A. 属性、事件、方法B.控件、属性、事件C. 窗体、控件、过程D.窗体、控件、模块窗体模块保存在一个扩展名为的文件中。A. basB. vbpC. vbgD.frm面正确的赋值语句是D. 3y=xA. x+y=30 B. y= n *r*r C. y=x+30设 S=“492”，表达式 Right (S,l) +Left (S,l) +Mid (S,2,l)的值为.A. “ 492”B. “ 249”C. “ 294”D. “ 429”将数学表达式aWbWc写成Visual Basic表达式，正确的是A. a=b=cB. a=b Or b=cC. a=b And b=cD. a=b Not b=c为了把焦点移到文本框，所使用的方法是。A. SetFocusB.VisibleC.RefreshD.GetFocusINT (100*RND)产生的随机整数的闭区间是。A.0， 100B.1， 100C.1， 99D.0， 99一个数组说明为Dim a(0 to 5, 1 to 5) As Integer,则该数组共有个A. 5B. 36C. 30D. 不确定下面过程定义语句合法的是。A. Function P1(P1)B. Function P1(By Val x As Integer) As IntegerD.Sub P1(ByVal x()C. Sub P1(x As Integer)As Single得分评卷人二、填空题：（每空 3 分，共 18 分）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) = 1Next iFor i = 1 To 5For j = 2 To i - 1Next 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 PrintNext cNext bNext aEnd Sub得分评卷人三、程序分析题：（每题 6 分，共 12 分）1. 点击窗体时，分析程序的执行结果。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 IP = sumEnd FunctionS = P(1) + P(2Print S;End Sub程序功能结构分程序执行结果：得分评卷人四、基本操作题：（每题 10 分，共 20 分）1. 编制如下图所示的程序。本程序根据如下公式 由输入的身高计算标准体重。男：标准体重（kg）=身高（cm） -100 女：标准体重（kg）=身高（cm） -1052. 编写一个窗体，窗体上有一个标签，并且标签上字的颜色可以不停的变化，标签从窗体的上部向下部滚动出现。得分评卷人五、综合应用程序设计题：（每题 15 分，共 30 分）1. 求：1+2! +3! +4! +n! （n为任意输入的一个正整数）。2. 输入若干个学生的成绩（以-1 为结束标志），存入一维数组中，统计输入的成绩个数、最高分、最低分、平均分和及格率。参考答案一、选择题：(每空2 分，共 20 分)1.C2. A3D4. C5. B6.C7. A8D9.C10.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+cx=aA3+bA3+cA3三、程序分析题：(每题 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 max Then max = s(i)If s(i) 60 Then count = count + 1 Next iText2.Text = maxText3.Text = minText4.Text = sum / nText5.Text = (count / n) * 100 & % End Sub