Visual Basic (13).doc

试卷编号：8787所属语言：Visual Basic试卷方案：2011年VB考前练习1试卷总分：132分共有题型：6种一、填空 共19题 （共计19分）第1题 （1.0分）用户可通过【1】模拟屏幕的小图像来布置应用程序。答案：=(答案1)=窗体布局窗口=或=布局窗口第2题 （1.0分）一个工程可以包括多种类型的文件,其中,扩展名为.frm的文件表示【1】文件.答案：=(答案1)=窗体第3题 （1.0分）A和B同为正整数或同为负整数的VB表达式为【1】.答案：=(答案1)=A=INT(A) AND B=INT(B) AND A*B0第4题 （1.0分）在VB 6.0中,若要将数值型数据转换成字符串,应使用的类型转换函数是【1】.答案：=(答案1)=STR=或=CSTR第5题 （1.0分）把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】.答案：=(答案1)=False第6题 （1.0分）表达式12 &ab的值是【1】答案：=(答案1)=12ab第7题 （1.0分）可获取字符的ASCII码的函数是【1】答案：=(答案1)=Asc第8题 （1.0分）当用户单击滚动条两端箭头时，滑块移动的增量值由 【1】 属性决定。答案：=(答案1)=SmallChange第9题 （1.0分）要对文本框中已有的内容进行编辑,按下键盘上的按键,就是不起作用,原因是已经将Locked属性设置为了【1】.答案：=(答案1)=TRUE第10题 （1.0分）为了使图片框能自动调整大小以显示全部图片，应把图片框的 【1】 属性设置为True。答案：=(答案1)=autosize第11题 （1.0分）VB的控件分为标准控件、【1】和可插入对象。答案：=(答案1)=ActiveX控件=或=ActiveX第12题 （1.0分）对象的三要素是属性、事件【1】答案：=(答案1)=方法第13题 （1.0分）Print x= & (2=4) 的结果为【1】.答案：=(答案1)=x=False第14题 （1.0分）当VB执行下面语句后，A的值为【1】A=1IF A0 Then A=A+1IF A1 Then A=0答案：=(答案1)=0第15题 （1.0分）设有如下程序段：x=2For i=1 To 10 Step -2 x=x+iNext运行以上程序后，x的值是【1】 。答案：=(答案1)=2第16题 （1.0分）以下程序段的输出结果是【1】num=0While num0,x Mod 3,0),设 x=10，则 y的值是（ ）。A:0B:1C:3D:语句有错答案：B第19题 （1.0分）在窗体中添加两个文本框Text1和Text2,一个命令按钮Command1,编写如下事件过程:Private Sub Command1_Click()x = 0Do While x 10 x = (x - 2) * (x + 3) n = n + 1LoopText1.Text = Str(n) : Text2.Text = Str(x)End Sub程序运行后,单击命令按钮,在两个文本框中显示的值分别为()A:1 和 0B:3 和 50C:2 和 24D:4 和 68答案：C第20题 （1.0分）为了计算1+3+5+99 的值，某人编程下列：k=1s=0While k=99k=k+2s=s+kWendPrint s在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是（ ）。A:循环中两条赋值语句的顺序错误，应改为s=s+k:k=k+2B:WhileWend 循环语句错误，应改为For k=1 To 99 Next kC:循环条件错误，应改为While k99D:循环前的赋值语句k=l 错误，应改为k=0答案：A第21题 （1.0分）有如下程序：Private Sub Command1_Click() a$=A WORKER IS HERE x=Len(a$) For i=1 To x - 1 b$=Mid$(a$, i, 3) If b$=WOR Then S=S + 1 Next Print SEnd Sub单击命令按钮，程序运行结果为（ ）。A:1B:2C:3D:5答案：A第22题 （1.0分）要定义一个含有12个元素的二维数组，则以下定义正确的语句是（ ）。A:Dim a（-2 TO 0，2）B:Dim a（3，2）C:Dim a（5，3）D:Dim a（1 TO -5，-1 TO -3）答案：B第23题 （1.0分）在窗体上添加一个命令按钮，编写如下代码：Option Base 1Private Sub Command1_Click Dim a A=Array(1,2,3,4) J=1 For i=4 To1 Step -1 S=s+a(i)*j J=j*10 Next i Print sEnd Sub程序运行后，单击命令按钮，输出结果是A:4321B:12C:34D:1234答案：D第24题 （1.0分）如下数组声明语句，正确的是A:Dim a3,4As IntegerB:Dim a(3,4)As IntegerC:Dim a(n,n) As IntegerD:Dim a3,4 As Integer答案：B第25题 （1.0分）Sub过程与Function过程最根本的区别是A:Sub过程可以有参数,Function过程不可以B:Function过程可以有参数,Sub过程不可以C:两种过程参数的传递方式不同D:Sub过程的过程名不能返回值,而Function过程能通过过程名返回值答案：D第26题 （1.0分）有如下事件过程：Private Sub Command1_Click() Dim i As Integer For i=1 To 2 DC Next iEnd Sub Dim x As Integer, m As String Static y, n x=x + 1 y=y + 1Sub DC() m=m &*: n=n & # Print x, y, m, nEnd Sub程序运行后，输出的结果是（ ）。A:1 1 * # 1 1 * #B:1 1 * #1 2 * #C:1 1 * # 1 1 * #D:1 1 * # 1 2 * #答案：D第27题 （1.0分）下面的过程定义语句中不合法的是（ ）。A:Sub Para(ByVal n() )B:Sub Para(n) As IntegerC:Function Para(ByVal n)D:Function Para(proc1)答案：B四、程序填空 共4题 （共计40分）第1题 （10.0分）-【程序填空】-题目：在窗体上添加一个名为command1的命令按钮，程序运行后，单击命令按钮，计算1-50之间所有是7的倍数的整数之和，并将结果在窗体上输出。请将程序补充完整。-Private Sub Command1_Click() Dim i%, s! For i = 1 To 50*SPACE* If 【?】 Then*SPACE* 【?】 End If Next i Print 1-50之间所有是7的倍数的整数之和:; sEnd Sub答案：=(答案1)=i Mod 7 = 0=(答案2)=s = s + i=或=s=i+s第2题 （10.0分）-【程序填空】-题目：在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几个事件过程：程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（见样图）。请填空。-Private Sub Form_Load() Timer1.Enabled = False*SPACE* Timer1.Interval =【?】End SubPrivate Sub Form_Click()*SPACE* Timer1.Enabled =【?】End SubPrivate Sub Timer1_Timer()*SPACE* Label1.Caption =【?】End Sub答案：=(答案1)=1000=(答案2)=True=(答案3)=Time第3题 （10.0分）-【程序填空】-功能：单击窗体打印内容如图-Private Sub Form_Click() Dim i As Integer, j As Integer Dim star As String *SPACE* 【?】 = * For i = 0 To 6 *SPACE* For j = 【?】 To 6 *SPACE* Form1.Print star【?】 Next j Form1.Print Next iEnd Sub答案：=(答案1)=star=(答案2)=6 - i=或=- i+6=(答案3)=;第4题 （10.0分）Option Explicit-【程序填空】-题目：有12个文本框代表12个位置。程序为A-J 10个字母分配 十个位置，并显示座位分配。-Private Sub Form_Load() Dim k, h, p As Integer Dim t(12) As String Randomize *SPACE* For k = 1 To 【?】 t(k) = Empty Next k *SPACE* For 【?】 = 65 To 74 Do While True p = Int(1 + 12 * Rnd) *SPACE* If t(p) = 【?】 Then t(p) = Chr(h) Exit Do End If Loop Next h For k = 1 To 12 Text1(k - 1).Text = t(k) Next kEnd Sub答案：=(答案1)=12=(答案2)=h=(答案3)=Chr(h)五、程序设计 共2题 （共计20分）第1题 （10.0分）-【程序设计】-题目：(事件)单击窗体。 (响应)求10!的值，并将结果输出到窗体上。 将结果存入变量SUM中。 要求：用for语句实现。-答案：- Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum-第2题 （10.0分）-【程序设计】-题目：(事件)双击窗体。 (响应)求1+5+10+15+500的和，并将结果输 出到窗体上。将结果存入变量SUM中。 要求：用for语句实现。-注意：请在指定的事件内编写代码。-答案：- Dim i As Integer For i = 1 To 500 If i Mod 5 = 0 Then sum = sum + i End If Next Print sum-六、VB窗体设计 共1题 （共计10分）第1题 （10.0分）-【窗体设计】-题目：请按照题目要求设计指定的窗体。 建立如(图1)所示界面。 -1、在窗体内添加4个文本框(Text1，Text2，Text3，Text4)， 4个标签(Label1，Label2，Label3，Label4)，2个按 钮(Command1，Command2)。 2、窗体设置： 设置窗体名称(Name)为“Form12”。 设置窗体标题(Caption)为“VB”。 3、标签设置： 设置第1个标签(Label1