VB程序设计试题及答案一

1、一、单选题1. VB6.0是一种面向B的编程环境。(A) 机器(B)对象(C)过程(D)应用2. 要使Forml窗体的标题栏显示“欢迎使用VB，以下 D语句是正确的。(A) Forml.Caption=欢迎使用 VB”(B) Forml.Caption=欢迎使用 VB(C) Forml.Caption=欢迎使用 VB(D) Forml.Caption=欢迎使用 VB3. 若要使命令按钮不可操作，要对A属性进行设置。(A) En abIed (B)Visible(C) Backcolor (D)Captio nC事件获得输入键值的 ASCII码。4. 如果在窗体上已经创建了一个文本框对象Text

2、I，可以通过(A) Cha nge (B) LostFocus(C) KeyPress (D) GotFocus5. 下面A是合法的变量名。(A) X_yz (B) 123ab。(C) in teger (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+l(C) If sex=男 And age=4O And Right(duty，2)=教授Then

3、 n=n+l(D) If sex=男 “ And age=4O And duty=教授 “ And duty=副教授 “ Then n=n+l10. 下列关于DoLoop循环结构执行循环次数的描述正确的是D o(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结构。(

4、A) For x=1 To Step 10 (B) For x=3 To -3 Step -3Next x Next x(C) For x=1 To 10 (D) For x=3 to 10 step 3re:-Next x Next yIf i=10 The n GoTO re12. 如下数组声明语句，B是正确的。(A) Dim a3,4 As In teger(B) Dim a(3,4) As In teger(C) Dim a(n,n) As In teger(D) Dim a(3 4) As In teger13. 下列语句中(假定变量n有值)，能正确声明可变长数组的是A。(A) Di

5、m a( ) As In teger (B) Dim a( ) As In tegerReDim a(n) ReDim a( n) As Str ing(C) Dim a( ) As In teger (D) Dim a(10) As In tegerReDim a(3, 4) ReDim a(n+10)ReDim Preserve a(4, 4)14. 要想从子过程调用后返回两个结果，下面子过程语句说明合法的是C。(A) Sub f2(ByVal n%, ByVal m%) (B) Sub f1( n%, ByVal m%)(C) Sub f1( n%, m%) (D) Sub f1(ByV

6、al n%, m%)15. 设有如下程序段：Public Sub F1( n%)n=3*n+4End SubPrivate Sub Comma nd1_Click()Dim n%, m%n=3m=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) Fon tItalic (B) Fo ntName (C) Fon tBold (D) Fon tSizex的值17. 假定定时器的Interval

7、属性为1000，Enabled属性为True，调用下面的事件过程，程序运行结束后变量 为D。Dim x As In tegerSub Timer1_Timer()For i=1 to 10x=x+1Next iEnd Sub(A) 1000 (B) 10000 (C) 10 (D)以上都不对18. 在下列关于通用对话框的叙述中，错误的是B。(A) CommonDialog1.ShowFont 显示 字体对话框(B) 在打开”或另存为”对话框中，用户选择的文件名可以经FileTitle属性返回(C) 在打开”或另存为”对话框中，用户选择的文件名机器路径可以经FileName属性返回(D)19.

8、当用户按下并且释放一个键后会触发KeyPress、KeyUp和KeyDown事件，这三个事件发生的顺序是 C。(A) KeyPress、KeyDown、KeyUp(B) KeyDown、KeyUp、KeyPress(C) KeyDown、KeyPress、KeyUp(D) 没有规律20. 在下面关于顺序文件的描述中，正确的是C。(A) 顺序文件中每行的长度都是相同的。(B) 可以通过编程对文件中的某行方便地进行修改(C) 数据以ASCII码的形式存放在文件中，所以可通过记事本打开(D) 文件的组织结构复杂21. 随机文件是因为C。(A) 文件中的内容是通过随机数产生的(B) 文件中的记录号通过

9、随机数产生的(C) 可对文件中的记录根据记录号随机地读/写(D) 文件的每条记录的长度是随机的22. 从磁盘上读入一个文件名为c:t1.txt ”顺序文件，如下A正确。(A) F= c:t1.txt ”Ope n F For In put As #1(B) F= c:t1.txt ”Ope n F For In put As #2(C) Ope n c:t1.txt For In put As #1(D) Ope n c:t1.txt For In put As #223. 坐标度量单位可由通过来D改变。(A)Drawstyle 属性(B) DrawWidth 属性(C) Scale方法(D)

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

11、，1234、123456&、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窗体中的模块级变量应在窗口模块 段声明，它作用于该窗体的全局范围。8当用户单击滚动条的空白处时，滑块移动的增量值由LargeCha nge属性决定。9如果菜单标题的某个字母前输入一个&”符号，那么该字母就成了热键字母；如果建立菜单时在标题文本

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

13、果。(1)Private Sub Comma nd1_Click()Dim a, i%, min %, imi n%, sum%, t%a=Array(26, 43, 61, 87, 33, 19, 37, 59, 76, 69)min=a(0): i min=0: sum=a(0)For i=1 to UBou nd(a)sum=sum+a(i)If a(i)= A And UCase= 0 And ch= 9 Thenform1.Pri nt ch;是数字字符Elseform1.Pri nt ch;是其他字符End IfEnd Sub输岀结果：是数字字符Public Sub Proc(a%

14、()Static i%Doa(i)=a(i)+a(i+1)i=i+1Loop While i2End SubPrivate Sub Comma nd1_Click()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: Pri nt x(i); : Next iEnd Sub输岀结果：3 5 7 4 52. 补充程序(1) 如下是账号和密码输入的检验程序，运行界面如下图1所示。输入帐号和密码后，单击检验密码”按钮，如果密码正确则程序结束，假定密码为001 ”；如果密码不正确，则弹岀如下图2所示对话框，单击 取消”则程序结束，单击 重试”则返回图1窗体，且密码文本框 Text2内容被清空，等待再次输入。补充完整如下程序。图1图2Private Sub Comma nd1_Click()Dim i As In tegerIf text2.texts001 The ni = MsgBox(密码错误,5 + vbExclamation,警告)If i 4 The nEndElseEndText2.SetFocusEnd IfEnd IfEnd Sub(2) 以下是求最大公约数