VB程序设计试题及答案(一)-vb程序设计答案

1、精选优质文档-倾情为你奉上VB程序设计试题及答案（一）一、单选题1. VB6.0是一种面向 B 的编程环境。 (A) 机器 (B) 对象 (C) 过程 (D) 应用2. 要使FormI窗体的标题栏显示欢迎使用VB，以下 D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption=欢迎使用VB (C) Forml.Caption=欢迎使用VB (D) Forml.Caption=欢迎使用VB3. 若要使命令按钮不可操作，要对 A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption4. 如

2、果在窗体上已经创建了一个文本框对象TextI，可以通过 C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus5. 下面 A 是合法的变量名。 (A) X_yz (B) 123ab。 (C) integer (D) X-Y6. 以下关系表达式 中，其值为False的是 A 。 (A) ABCAbC (B) 女男 (C) BASIC=UCase(basic) (D) 123O Then n=n+l (B) If sex=男 And age=4O And (duty=教授 Or duty=副教授) Then n=n

3、+l (C) If sex=男 And age=4O And Right(duty，2)=教授 Then n=n+l (D) If sex=男 And age=4O And duty=教授 And duty=副教授 Then n=n+l10.下列关于DoLoop循环结构执行循环次数的描述正确的是 D 。(A) Do WhileLoop循环和DoLoop Until循环至少都执行一次 (B) Do WhileLoop循环和DoLoop Until循环可能都不执行 (C) Do WhileLoop循环至少执行一次和DoLoop Until循环可能不执行 (D) Do WhileLoop循环可能不执

4、行和DoLoop Until循环至少执行一次11.以下 B 是正确的ForNext结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 Next x Next x(C) For x=1 To 10 (D) For x=3 to 10 step 3 re: Next x Next y If i=10 Then GoTO re12.如下数组声明语句， B 是正确的。 (A) Dim a3,4 As Integer (B) Dim a(3,4) As Integer (C) Dim a(n,n) As Integer (D) Dim a(3 4)

5、As Integer13.下列语句中（假定变量n有值），能正确声明可变长数组的是 A 。 (A) Dim a( ) As Integer (B) Dim a( ) As Integer ReDim a(n) ReDim a(n) As String (C) Dim a( ) As Integer (D) Dim a(10) As IntegerReDim a(3, 4) ReDim a(n+10) ReDim Preserve a(4, 4)14.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是 C 。 (A) Sub f2(ByVal n%, ByVal m%) (B) Sub f

6、1(n%, ByVal m%) (C) Sub f1(n%, m%) (D) Sub f1(ByVal n%, m%)15.设有如下程序段： Public Sub F1(n%) n=3*n+4 End Sub Private Sub Command1_Click( ) Dim n%, m% n=3 m=4 调用F1语句 End Sub 则在Command1_Click事件中有效的调用语句是 B 。 (A) Call F1(n+m) (B) Call F1(m) (C) Call F1(5) (D) Call F1(m+5)16.用来设置粗体字的属性是 C 。 (A) FontItalic (B

7、) FontName (C) FontBold (D) FontSize17.假定定时器的Interval属性为1000，Enabled属性为True，调用下面的事件过程，程序运行结束后变量x的值为 D 。 Dim x As Integer Sub Timer1_Timer( ) For i=1 to 10 x=x+1 Next i End Sub(A) 1000 (B) 10000 (C) 10 (D) 以上都不对18.在下列关于通用对话框的叙述中，错误的是 B 。 (A) CommonDialog1.ShowFont显示“字体”对话框 (B) 在“打开”或“另存为”对话框中，用户选择的文件

8、名可以经FileTitle属性返回 (C) 在“打开”或“另存为”对话框中，用户选择的文件名机器路径可以经FileName属性返回 (D) 19.当用户按下并且释放一个键后会触发KeyPress、KeyUp和KeyDown事件，这三个事件发生的顺序是 C 。(A) KeyPress、KeyDown、KeyUp(B) KeyDown、KeyUp、KeyPress(C) KeyDown、KeyPress、KeyUp(D) 没有规律20.在下面关于顺序文件的描述中，正确的是 C 。(A) 顺序文件中每行的长度都是相同的。(B) 可以通过编程对文件中的某行方便地进行修改(C) 数据以ASCII码的形式

9、存放在文件中，所以可通过记事本打开(D) 文件的组织结构复杂21.随机文件是因为 C 。(A) 文件中的内容是通过随机数产生的(B) 文件中的记录号通过随机数产生的(C) 可对文件中的记录根据记录号随机地读/写(D) 文件的每条记录的长度是随机的22.从磁盘上读入一个文件名为“c:t1.txt”顺序文件，如下 A 正确。(A) F=“c:t1.txt” Open F For Input As #1(B) F=“c:t1.txt” Open “F” For Input As #2(C) Open “c:t1.txt” For Input As #1(D) Open c:t1.txt For In

10、put As #223.坐标度量单位可由通过来 D 改变。(A)Drawstyle属性 (B) DrawWidth属性 (C) Scale方法 (D) ScaleMode属性24.指令“Circle (1000, 1000), 500, 8, -6, -3”将绘制 A 。(A) 画圆 (B) 椭圆 (C) 圆弧 (D) 扇形25.用ADO数据控件建立与数据源的链接，设置操作过程按 A 顺序进行。选择数据源连接方式；选择数据库类型；指定数据库文件名；指定记录源(A) (B) (C) (D) 二、填空题1VB是建立在BASIC语言基础上的 可见 化编程语言或编程环境。2在窗体上已建立多个控件如Te

11、xt1、Label1、Command1，若要程序一运行时焦点就定位在Command1控件上，应对Command1控件设置 TabIndex 属性的值为 0 。3在VB中，1234、&、1.2346E+5、1.2346D+5这4个常数分别表示 整形 、 长整形 、 单精度 、 双精度 类型。4表示x是5的倍数或是9的倍数的逻辑表达式为 x mod 5 = 0 or x mod 9=0 。5数组声明时下标下界默认为0，利用 Opation Base 1 语句可以使下标为1。6传地址方式是当过程被调用时，形参和实参共享 存储单元 。7窗体中的模块级变量应在 窗口模块 段声明，它作用于该窗体的 全局范

12、围 。8当用户单击滚动条的空白处时，滑块移动的增量值由 LargeChange 属性决定。9如果菜单标题的某个字母前输入一个“&”符号，那么该字母就成了热键字母；如果建立菜单时在标题文本框中输入一个“ - (减号) ”符号，那么显示时形成一个分隔符。10使用 Scale 方法可以自定义坐标系。11使用Line方法画矩形，不许在指令中使用关键字 B 。12使用SQL语句设置ADO控件的RecordSource属性，这CommandType属性需要设置成 1(adCmdText)或者(adCmdUnknown) 。13为了显示一个窗体，所使用的方法为show；而为了隐藏一个窗体，所使用的方法为_H

13、ide_。14如果要将某个命令按钮不显示，则可将_Visible_属性设置为False15在VB中窗体文件的扩展名为_.FRM_。三、编程应用题1.程序阅读，写出下列程序的运行结果。(1) Private Sub Command1_Click( ) Dim a, i%, min%, imin%, sum%, t% a=Array(26, 43, 61, 87, 33, 19, 37, 59, 76, 69) min=a(0): imin=0: sum=a(0) For i=1 to UBound(a) sum=sum+a(i) If a(i)= AAnd UCase=0And ch=9Then

14、 form1.Print ch; 是数字字符 Else form1.Print ch; 是其他字符 End If End Sub输出结果：是数字字符(3) Public Sub Proc(a%( ) ) Static i% Do a(i)=a(i)+a(i+1) i=i+1 Loop While i2 End Sub Private Sub Command1_Click( ) Dim m%, n%, x%(10) For i=0 to 4: x(i)=i+1: Next i For i=1 to 2: Call Proc(x): Next i For i=0 to 4: Print x(i);

15、 : Next i End Sub输出结果：3 5 7 4 52.补充程序(1)如下是账号和密码输入的检验程序，运行界面如下图1所示。输入帐号和密码后，单击“检验密码”按钮，如果密码正确则程序结束，假定密码为“s001”；如果密码不正确，则弹出如下图2所示对话框，单击“取消”则程序结束，单击“重试”则返回图1窗体，且密码文本框Text2内容被清空，等待再次输入。补充完整如下程序。 图1 图2Private Sub Command1_Click() Dim i As Integer If text2.texts001 Then i = MsgBox(密码错误, 5 + vbExclamation, 警告) If i 4 Then End Else End Text2.SetFocus End If End If End Sub(2)以下是求最大公约数和最小公倍数的程序，使用的是辗