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=" 欢迎使用 VB"3. 若要使命令按钮不可操作，要对 A 属性进行设置。(A) EnabIed (B)Visible(C) Backcolor (

2、D)CaptionC事件获得输入键值的 ASCII码。4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过(A) Change (B) LostFocus(C) KeyPress (D) GotFocus5. 下面 A 是合法的变量名。(A) X_yz (B) 123ab。(C) integer (D) X-Y6. 以下关系表达式中，其值为False的是A。(A) "ABC">"AbC" (B) "女">"男"(C) "BASIC"=UCase("basic) (

3、D) "123"<"23"7. 为了给x、y、z三个变量赋初值1,下面正确的赋值语句是(A) x=1:y=1:z=1 (B) x=1,y=1,z=1(C) x=y=z=1 (D) xyz=1选择结构、循环结构 过程结构、顺序结构 输入输出结构、转向结构 循环结构、顺序结构8. VB 提供了结构化程序设计的三种基本结构，三种基本结构是(A) 递归结构、(B) 选择结构、(C) 过程结构、(D) 选择结构、40岁条件的人数，不正确的语9. 下面 If 语句统计满足性别为男、职称为副教授以上、年龄小于 句是 D 。(A) If sex="男&q

4、uot;And age=40 And InStr(duty ,"教授")>0 Then n=n+l(B) If sex="男“ And age=4O And (duty="教授"Or duty="副教授")Then n=n+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="副教授 “

5、Then n=n+l10. 下列关于DoLoop循环结构执行循环次数的描述正确的是(A) Do WhileLoop循环和DoLoop Un til循环至少都执行一次(B) Do WhileLoop循环和 DoLoop Un til循环可能都不执行(C) Do WhileLoop循环至少执行一次和DoLoop Un til循环可能不执行(D) Do WhileLoop循环可能不执行和DoLoop Un til循环至少执行一次11. 以下 B是正确的ForNext结构。(A) For x=1 To Step 10 (B) For x=3 To -3 Step -3Next x Next x (C)

6、 For x=1 To 10 (D) For x=3 to 10 step 3re:Next x Next yIf 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) As Integer13. 下列语句中(假定变量n 有值)，能正确声明可变长数组的是(A) Dim a( ) As Integer (B) Dim a( ) As IntegerReDim a(n) ReDim a(n) As Str

7、ing(C) Dim a( ) As Integer (D) Dim a(10) As IntegerReDim a(3, 4) ReDim a(n+10)ReDim Preserve a(4, 4)14. 要想从子过程调用后返回两个结果，下面子过程语句说明合法的是(A) Sub f2(ByVal n%, ByVal m%) (B) Sub f1(n%, ByVal m%)(C) Sub f1(n%, m%) (D) Sub f1(ByVal n%, m%)15. 设有如下程序段：Public Sub F1(n%)n=3*n+4End SubPrivate Sub Command1_Click

8、( ) Dim n%, m% n=3m=4'调用F1语句End Sub则在 Command1_Click 事件中有效的调用语句是(A) Call F1(n+m) (B) Call F1(m) (C) Call F1(5) (D) Call F1(m+5)16. 用来设置粗体字的属性是C 。(A) FontItalic (B) FontName (C) FontBold (D) FontSize17. 假定定时器的Interval属性为1000 , Enabled属性为True，调用下面的事件过程，程序运行结 束后变量 x 的值为 D 。Dim x As IntegerSub Timer

9、1_Timer( )For i=1 to 10x=x+1Next iEnd Sub(A) 1000 (B) 10000 (C) 10 (D) 以上都不对18. 在下列关于通用对话框的叙述中，错误的是B 。用户选择的文件名可以经FileTitle 属性返回用户选择的文件名机器路径可以经FileName 属性返回(A) CommonDialog1.ShowFont 显示“字体”对话框(B) 在“打开”或“另存为”对话框中，(C) 在“打开”或“另存为”对话框中，(D)KeyPress、 KeyUp 和 KeyDown 事件，这三个事件发生的19. 当用户按下并且释放一个键后会触发顺序是 C 。Ke

10、yDown 、 KeyUp KeyUp、 KeyPress KeyPress、 KeyUp(A) KeyPress、(B) KeyDown、(C) KeyDown、(D) 没有规律20. 在下面关于顺序文件的描述中，正确的是(A)(B)(C)(D)顺序文件中每行的长度都是相同的。 可以通过编程对文件中的某行方便地进行修改 数据以ASCII码的形式存放在文件中，所以可通过记事本打开 文件的组织结构复杂C 。21. 随机文件是因为文件中的内容是通过随机数产生的 文件中的记录号通过随机数产生的 可对文件中的记录根据记录号随机地读 文件的每条记录的长度是随机的(A)(B)(C)(D)/写22. 从磁盘

11、上读入一个文件名为“c:t1.txt(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 Input As #223. 坐标度量单位可由通过来D 改变。(A)Drawstyle 属性 (B) DrawWidth 属性(C) Scale方法(D) ScaleMode 属性24. 指令“ Circle (1000, 1000), 500, 8, -6, -3(A) 画圆 (B

12、) 椭圆 (C) 圆弧 (D) 扇形顺序文件，如下将绘制 A 。A 正确。A 顺序进行。 指定记录源25. 用 ADO 数据控件建立与数据源的链接，设置操作过程按选择数据源连接方式；选择数据库类型；指定数据库文件名;(A) (B) (C) (D) 二、填空题1. VB是建立在BASIC语言基础上的可见化编程语言或编程环境。2在窗体上已建立多个控件如Text1、 Label1 、 Command 1 ，若要程序一运行时焦点就定位在Command1 控件上，应对 Command1 控件设置 TabIndex 属性的值为 0 。3.在VB中，1234、123456&、1.2346E+5、1.

13、2346D+5这4个常数分别表示整形、长整形、单精度 、 双精度 类型。4表示 x 是5的倍数或是 9的倍数的逻辑表达式为x mod 5 = 0 or x mod 9=0 。5数组声明时下标下界默认为0，利用 Opation Base 1 语句可以使下标为 1 。6传地址方式是当过程被调用时，形参和实参共享存储单元 。7窗体中的模块级变量应在窗口模块 段声明，它作用于该窗体的 全局范围 。8当用户单击滚动条的空白处时，滑块移动的增量值由LargeChange 属性决定。9如果菜单标题的某个字母前输入一个“& ”符号，那么该字母就成了热键字母；如果建立菜单时在标题文本框中输入一个“- (

14、减号 ) ”符号，那么显示时形成一个分隔符。10使用 Scale 方法可以自定义坐标系。11使用 Line 方法画矩形，不许在指令中使用关键字12使用 SQL 语句设置 ADO 控件的 RecordSource1(adCmdText)或者(adCmdUnknown)。13 为了显示一个窗体，所使用的方法为_Hide 。14 如果要将某个命令按钮不显示，则可将15 在 VB 中窗体文件的扩展名为 三、编程应用题show；.FRM属性，这 CommandType 属性需要设置成而为了隐藏一个窗体，所使用的方法为Visible属性设置为 False1.程序阅读，写出下列程序的运行结果。(1)Priv

15、ate 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)< min Then min=a(i): imin=iNext i t=a(0): a(0)=a(imin): a(imin)=tPrint sum; a(0)End Sub输出结果：510 19 (2)Private Sub Command1_Cli

16、ck( )Dim ch as String*1 ch= 8是字母字符If UCase(ch)>= AAnd UCase<= Z Then form1.Print ch;ElseIf ch>= 0form1.Print ch;ElseAnd ch<= 9 Then是数字字符form1.Print ch;End If是其他字符End Sub 输岀结果： 是数字字符(3)Public Sub Proc(a%( ) )Static i%Doa(i)=a(i)+a(i+1)i=i+1Loop While i<2End SubPrivate Sub Command1_Clic

17、k( )Dim m%, n%, x%(10)For i=0 to 4: x(i)=i+1: Next iFor i=1 to 2: Call Proc(x): Next iFor i=0 to 4: Print x(i); : Next iEnd Sub 输岀结果：2. 补充程序1所示。输入帐号和密码后，单击“检验sOO1” ；如果密码不正确，则弹岀如下图1窗体，且密码文本框 Text2内(1)如下是账号和密码输入的检验程序，运行界面如下图 密码”按钮，如果密码正确则程序结束，假定密码为“2所示对话框，单击“取消”则程序结束，单击“重试”则返回图容被清空，等待再次输入。补充完整如下程序。Private Sub Command1_Click()Dim i As IntegerIf text2.text<>s001 Theni = MsgBox("密码错误",5 + vbExclamation,"警告")If i < > 4 ThenEndElseEndText2.SetFocusEnd IfEnd IfEnd Sub(2)以下是求最大公约数和最小公倍数的程序，使用的是辗转相除法，将程序补充完整。 Priv