Visual Basic程序设计 1-12章试卷

2026-2027学年第一学期 高三第一次月考 Visual Basic程序设计 一、选择题（本大题共25题，每小题2分，共50分） 1、在VB中，要设置命令按钮上显示的文本，应修改命令按钮的（ ）属性。 A．Caption B．Text C．Name D．Value 2、在VB中，用于从用户获取输入的函数是（ ） A．InputBox B．MsgBox C．Print D．Write 3、在VB中，下列哪个事件在窗体加载时触发？（ ） A．Load B．Click C．Activate D．Initialize 4、在VB中，用于删除列表框中指定项目的语句是（ ）。 A．Remove B．Delete C．RemoveItem D．DeleteItem 5、在VB中，用于设置图片框中图片的属性是（ ）。 A．Picture B．Image C．Photo D．Bitmap 6、在VB中，用于设置水平滚动条最大值的属性是（ ）。 A．LargeChange B．Value C．Max D．SmallChange 7、在VB中，用于创建新工程文件的菜单命令是（ ）。 A．工程→添加窗体 B．工程→引用 C．文件→打开工程 D．文件→新建工程 8、VB6.0 集成开发环境有三种工作状态，工作状态显示在( )。 A．状态栏的最左方 B．状态栏的最右方 C．状态栏的中括号内 D．标题栏的中括号内 9、VB可分为（ ）。 A.学习版、专家版和企业版 B.中文版、英文版和学习版 C.学习版、专业版和企业版 D.内部版、正式版和测试版 10、与传统的程序设计语言相比，VisualBasic最突出的特点是( )。 A.结构化程序设计 B.程序开发环境 C.事件驱动编程机制 D.程序调试技术 11、在VB中，Mid()函数的作用是（ ）。 A．从左侧截取字符 B．计算字符串长度 C．从右侧截取字符 D．从中间截取字符 12、下列VB循环语句中，循环体可能一次都不执行的是（ ）。 A．Do...Loop While B．Do...Loop Until C．For...Next D．Do While...Loop 13、在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$ = "VisualBasic" Print String(3, a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是（ ）。 A. VVV B. Vis C. sic D. Ll 14、VB表达式DateDiff(“y”,#12/30/1999#,#1/13/2000#)的结果是( )。 A.1 B.11 C.14 C.99 15、有如下程序段，该程序执行后，变量a的值为( )。 For I=1 To 2 For J=I To 2 For K=1 To J a=a+2 Next K Next J Next I A.2 B.10 C.8 D.20 16、假定有如下的Sub过程： Sub S(x As Single, ByVal y as Single) t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single, b As Single a=5:b=4 S a,b Print a,b End Sub 程序运行后，单击命令按钮，输出结果为（ ）。 A. 5 4 B. 1 1 C. 1.25 4 D. 1.25 1 17、VB的一个应用程序至少包含一个____文件，该文件存储窗体上使用的所有控件对象和有关的___、对象对应的___过程和___代码。（ ） A.模块、方法、事件、程序 B.窗体、属性、事件、程序 C.窗体、程序、属性、事件 D.窗体、属性、事件、模块 18、在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（ ）。 A.2 B.3 C.4 D.5 19、有如下程序： For i=1 to 3 For j=5 to 1 Step –1 Print i*j Next j Next i 则语句Print i*j的执行次数是( )。 A.15 B.16 C.17 D.18 20、设有如下程序： Sub f(x As Integer, ByVal y As Integer) x=2*x y=y+x End Sub Private Sub Command1_Click() Dim a As Integer, b As Integer a=6:b=35 Call f(a, b) Print a, b End Sub 程序运行后，单击命令按钮Command1，输出结果为（ ）。 A.6 47 B.12 47 C.6 35 D.12 35 21、下列程序运行结果是（ ）。 Function f(m As Integer) As Integer b = 1 Static c As Integer b = b + 1 c = c + 1 f = m * b * c End Function Private Sub Command1_Click() Dim a As Integer a = 2 Sum = 0 For i = 1 To 3 Sum = Sum + f(a) Next i Print Sum End Sub A.12 B.16 C.20 D.24 22、在在窗体上添加一个命令按钮Command1和一个文本框Text1，然后编写如 下事件过程： Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer x = 5 y = 7 z = 0 Text1.Text = "" Call p1(x, y, z) Text1.Text = Str(z) End Sub Private Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer) c = a + b End Sub 程序运行后，单击命令按钮得到的结果是（ ）。 A.12 B.0 C.Str(z) D.没有显示结果 23、以下程序的运行结果是（ ）。 Sub s1(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer For i = 1 To 4 a(i) = i + 5 Next i s1 a() For i = 1 To 4 Print a(i) Next i End Sub A.12 14 16 18 B.6 7 8 9 C.2 4 6 8 D.1 2 3 4 24、如下有一段不完整的程序段，如果要求该程序执行3次循环，则在程序中的括号里要填入（ ）。 X = 1 Do x = x + 3 Print x Loop Until ( ) A.x>=8 B. x<=8 C. x>=7 D. x<=7 25、下面程序的执行结果是( )。 Private Sub Command1_Click() Dim a As Integer Dim k As Integer Dim x As Integer a = 0 k = 1 Do While k < 4 x = k ^ k ^ a k = k + 1 Print x; Loop End Sub A.1 4 27 B.1 1 1 C.1 4 9 D.0 0 0 二、基础填空题（本大题共10题，每空1分，共10分） 26、在VB中，用于声明符号常量的关键字是 。 27、VB中每个对象都有自己的属性，_____________属性决定控件是否允许可见。 28、VB 中变量未显式声明时，默认数据类型为_____________。 29、要定义一个过程可以在程序的任何地方调用它，应使用 关键字来定义该过程。 30、在VB中，A=7，B=3，C=4，则表达式A MOD 3 +B^3/C\5的值为 。 31、嵌套过程中，内层过程要修改外层过程的变量，需将参数声明为 （传递方式）。 32、产生100～200之间（含100和200）的随机整数的表达式是：_____ ________。 33、VB 中绘制圆形 / 椭圆的核心语句是 。 34、VB 中通过 函数可自定义绘图颜色，其语法为该函数 (红，绿，蓝)。 35、强制要求所有变量必须声明的语句是_______ ______。 三、程序填空题（本大题共8题，每空2分，共40分） 36、下列程序的功能：计算1到100之间所有奇数的和。 Private Sub Command1_Click() Dim sum As Integer, i As Integer sum = 0 For i = 1 To 100 If ___ _____ _____ Then sum = sum + i End If Next i Print "奇数和为："; sum End Sub 37、下列程序的功能：当 x<50 时，y=0.8×x；当 50≤x≤100 时，y=0.7×x；当 x>100 时，没有意义。请填空。 Private Sub Command1_Click() Dim x As Single x = InputBox("输入 x 的值") Case Is < 50 y = 0.8 * x Case 50 To 100 y = 0.7 * x Print "输入的数据出界！" End Select Print x, y End Sub 38、以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入，输出结果。请补充程序。 Dim x, amax, amin As Single x=InputBox("Enter a score") amax=x amin=x Do While ___ _____ _____ If x>amax Then amax=x End If If Then amin=x End If x=InputBox("enter a score") Loop Print "max="; amax, "min="; amin 39、利用1, 2, 3, 4这四个数字组成四位数。请补充完整如下程序代码，打印出所有可能的四位数（四个数字可以相同），每行输出15个。并统计所组成的四位数的个数。 Private Sub Form_Load() Show Sum = ___ _____ _____ For a = 1 To 4 For b = 1 To 4 For c = 1 To 4 For d = 1 To 4 x = Print x; Sum = Sum + 1 If ___ _____ _____ Then Print Next d Next c Next b Next a Print "个数为："; Sum End Sub 40、下面程序的功能是分别计算给定的 10 个数中正数之和与负数之和，并输出这两个和数的绝对值之商。请在画线处填入适当内容，将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim A A=Array(23,-5, 17 ,38, -31, 46, 11, 8, 5,-4) S1=0 S2=0 For i=1 To 10 If (A(i)>0) Then S1= Else S2=___ _____ _____ End If Next i x=S1/Abs(S2) Print x End Sub 41、利用随机函数生成 10 个[0,100]的随机整数，并按从小到大的顺序输出。请将程序补充完整。 Private Sub Command1_Click() Randomize() Dim xx(10) As Integer For i=1 To 10 xx(i)=Int(Rnd*101) Next For i=1 To For j=1 To If xx(j) xx(j+1) Then T=xx(j):xx(j)=xx(j+1):xx(j+1)=T End If Next j,i For i=1 To 10 Print xx(i); Next j End Sub 42、利用自定义的函数过程，求 2!+4!+6!。请将程序补充完整。 Public Function fact( ) As Long Dim f As Long, i As Integer f=1 For i=1 To n f=f*i Next i End Function Private Sub Form_Click() Dim s As Long, i As Integer For i=2 To 6 Step 2 Next i Print s End Sub 43、下列程序的功能是通过调用过程 swap，调换数组中数值的存放位置，即 a(1)的值与 a(10)的值互换，a(2)的值与 a(9)的值互换……a(5)的值与 a(6)的值互换。请将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer For i=1 To 10 a(i)=i Next Call swap ( ) For i=1 To 10 Print a(i); Next End Sub Sub swap (b() As Integer) n= For i=1 To t=b(i) b(i)=b(n) b(n)=t Next End Sub 答案 一、选择题（本大题共25题，每小题2分，共50分） 1~5：A A A C A 6~10：C D D C C 11~15：D D A C B 16~20：C B B A D 21~25：D A C A B 二、基础填空题（本大题共10题，每空1分，共10分） 26、Const 27、Visible 28、Variant（变体型） 29、Public 30、2 31、ByRef 32、Int(Rnd*101+100) 33、Circle 34、RGB 35、Option Explicit 三、程序填空题（本大题共8题，每空2分，共40分） 36、i Mod 2 = 1 37、Select Case Case Else 38、X>=0 X<amin 39、0 a*1000+b*100+c*10+d Sum Mod 15 = 0 40、S1+A(i) S2+A(i) 41、9 10-i > 42、n As Integer fact=f s=s+fact(i) 43、a() UBound(b) n/2 n=n-1 学科网（北京）股份有限公司 $