资源描述
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
展开阅读全文