1、D)把Name属性设置为O&(5)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()x=InputBox(Input)Select Case x Case 1,3 Print 分支1Case Is 4 分支2Case Else Else 分支End Select 程序运行后,如果在输入对话框中输入2,则窗体上显示的是 A)分支1 B)分支2 C)Else分支 D)程序出错 (6)以下关于MsgBox的叙述中,错误的是 A)MsgBox函数返回一个整数 B)通过MsgBox函数可以设置信息框中图标和按钮的类型 C)Msg
2、Box语句没有返回值 D)MsgBox函数的第一个参数是一个整数,该参数只能确定对话框中显示的按钮数量 (7)在窗体上画一个名称为Timer1的计时器控件,要求每隔0.5秒发生一次计时器事件,则以下正确的属性设置语句是 A)Timer1.Interval=0.5 B)Timer1.Interval=5 C)Timer1.Interval=50 D)Timer1.Interval=500 (8)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Static x As Integer Cls For i=1 To 2 y=y+x x=x+2 Next Print x,y 程序运
3、行后,连续三次单击Command1按钮后,窗体上显示的是 A)4 2 B)12 18 C)12 30 D)4 6 (9)以下关于多重窗体程序的叙述中,错误的是 A)用Hide方法不但可以隐藏窗体,而且能清除内存中的窗体 B)在多重窗体程序中,各窗体的菜单是彼此独立的 C)在多重窗体程序中,可以根据需要指定启动窗体 D)对于多重窗体程序中,需要单独保存每个窗体 (10)以下关于文件的叙述中,错误的是 A)顺序文件中的记录一个接一个地顺序存放 B)随机文件中记录的长度是随机的 C)执行打开文件的命令后,自动生成一个文件指针 D)LOF函数返回给文件分配的字节数 (11)以下叙述中错误的是 A)事件
4、过程是响应特定事件的一段程序 B)不同的对象可以具有相同名称的方法 C)对象的方法是执行指定操作的过程 D)对象事件的名称可以由编程者指定 (12)以下合法的Visual Basic标识符是 A)ForLoop B)Const C)9abc D)a#x (13)当一个复选框被选中时,它的Value属性的值是 A)3 B)2 C)1 D)0 (14)表达式 5 Mod 3+35*2的值是 A)0 B)2 C)4 D)6 (15)设x=4,y=8,z=7,以下表达式的值是 xz)Or z10,100,-100)fShow fCaption=y 运行以上程序,正确的结果是 A)Form1的Capti
5、on属性值为100 B)Form2的Caption属性值为-100 C)Form1的Caption属性值为-100 D)Form2的Caption属性值为100 (22)在窗体上画一个名称为Command1的命令按钮,并编写如下程序:Dim x As Integer Static y As Integer x=10 y=5 Call f1(x,y)Private Sub f1(ByRef x1 As Integer, y1 As Integer)x1=x1+2 y1=y1+2 A)10 5 B)12 5 C)10 7 D)12 7 (23)设有如下程序 Option Base 1 Dim a(
6、10)As Integer Dim n As Integer n=InputBox(输入数据If n10 Then Call GetArray(a,n)End If Private Sub GetArray(b()As Integer,n As Integer)Dim c(10)As Integer j=0 For i=1 To n b(i)=CInt(Rnd()*100)If b(i)/2=b(i)2 Then j=j+1 c(j)=b(i)Print j 以下叙述中错误的是 A)数组b中的偶数被保存在数组c中 B)程序运行结束后,在窗体上显示的是c数组中元素的个数 C)GetArray过程
7、的参数n是按值传送的 D)如果输入的数据大于10,则窗体上不显示任何信息(24)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Dim a a= Array(1,2,3,4,5)For i=1 To UBound(a)a(i)= a(i)+i-1 Print a(3)程序运行后,单击命令按钮,则在窗体上显示的内容是 A)4 B)5 C)6 D)7 (25)阅读程序 Private Sub Form_Click()Dim arr,Sum Sum = 0 arr = Array(1,3,5,7,9,11,13,15,17,19)For i=1 To 10 If arr(i)/
8、3 = arr(i)3 Then Sum =Sum+arr(i)Next i Print Sum 程序运行后,单击窗体,输出结果为 A)13 B)14 C)27 D)15 (26)在窗体上画一个名称为File1的文件列表框,并编写如下程序:Private Sub File1_DblClick()x=Shell(File1.FileName,1)以下关于该程序的叙述中,错误的是 A)x没有实际作用,因此可以将该语句写为:Call Shell(File1.FileName,1)B)双击文件列表框中的文件,将触发该事件过程 C)要执行的文件的名字通过File1.FileName指定 D)File1中
9、显示的是当前驱动器、当前目录下的文件 (27)在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签,两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮,然后画一个名称为Timer1的计时器控件,并把其Interval属性设置为500,如图所示。编写如下程序:Private Sub Form_Load()Timer1.Enabled=False Timer1.Enabled=True Private Sub Timer1_Timer()If Label1.Leftx Then Print a(i);A)1 2 B)1 2 3 C)3
10、4 5 D)4 5 (30)假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。Model1代码如下:Public x As Integer Public y As Integer Sub S1()x =1 S2 Sub S2()y=10 Form1.Show End Show Model2的代码如下:Sub Main()S1 其中Sub Main被设置为启动过程。程序运行后,各模块的执行顺序是 A)Form1Model1Model2 B)Model1Model2Form1 C)Model2Model1Form1 D)Model2Form1Model1 二、填
11、空题(每空2分,共30分)请将每空的正确答案写在答题卡【1】【15】序号的横线上,答在试卷上不得分。(1)设有如下程序段:BeijingShanghaib$=Mid(a$,InStr(a$,g)+1)执行上面的程序段后,变量b$的值为 【1】 。(2)以下程序段的输出结果是 【2】 。num =0 While num=2 num = num+1 Wend Print num (3)窗体上有一个名称为List1的列表框,一个名称为Text1的文本框,一个名称为Label1、Caption属性为“Sum”的标签,一个名称为Command1、标题为“计算”的命令按钮。程序运行后,将把1100之间能够
12、被7整除的数添加到列表框。如果单击“计算”按钮,则对List1中的数进行累加求和,并在文本框中显示计算结果,如图所示。以下是实现上述功能的程序,请填空。For i=1 To 100 If i Mod 7 =0 Then 【3】 Sum =0 For i=0 To 【4】 Sum =Sum+ 【5】 Text1.Text=Sum (4)本程序的功能是利用随机数函数模拟投币,方法是:每次随机产生一个0或1的整数,相当于一次投币,1代表正面,0代表反面。在窗体上有三个文本框,名称分别是Text1、Text2、Text3,分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数,如图所示。程序运
13、行后,在文本框Text1中输入总次数,然后单击“开始”按钮,按照输入的次数模拟投币,分别统计出现正面、反面的次数,并显示结果。Randomize n=CInt(Text1.Text)n1=0 n2=0 For i=1 To 【6】 r=Int(Rnd*2)If r= 【7】 _Then n1=n1+1 n2=n2+1 Text2.Text=n1 Text3.Text=n2 (5)阅读程序:Dim a(3)As Integer 输入的数据是:;For i=1 To 3 a(i)=InputBox(Print a(i);Print If a(1)a(3)Then m=a(2)ElseIf a(1)
14、m= 【9】 m= 【10】 中间数是:m 程序运行后,单击窗体,在输入对话框中分别输入三个整数,程序将输出三个数中的中间数,如图所示。请填空。(6)在窗体上画一个名称为“Command1”,标题为“计算”的命令按钮,再画7个标签,其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果,其Caption属性的初始值为空;标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机数,分别显示在标签控件数组的各个标签中,如图所示。单击“计算”按钮,则将标签数组各元素的值累加,然后计算结果显示在Label2。For i=0 To 4 Sum=Sum+ 【11】
15、 【12】 =Sum (7)在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后,如果单击“初始化”命令按钮,则对数组a的各元素赋值;如果单击“求和”命令按钮,则求出数组a的各元素之和,并在文本框中显示出来,如图所示。Dim a(3,2)As Integer For j=1 To 2 【13】 =i+j Next j Private Sub Command2_Click()For j=1 To 3 s=s+ 【14】 Text1.Text= 【15】 参考答案:一、选择题(1)(20)每小题2分,(21)(30)每小题2分,共70分)(1)(10)BCAAC DDBAB (11)(20) DACBD ABBDD (21)(30) BDCBC AABDC 1、(1)Shanghai2、(2)3 3、(3)list1.additem i (4)list1.listcount-1 (5)list1.list(i)4、(6)n (7)1 5、(8)t (9)a(3)(10)a(1)6、(11)label1(i).caption (12)label2.caption 7、(13)a(i,j) (14)a(j,i) (15)s
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1