VB程序设计试题及答案

《VB程序设计试题及答案》由会员分享，可在线阅读，更多相关《VB程序设计试题及答案（6页珍藏版）》请在装配图网上搜索。

1、VB 程序设计试题及答案(一)一、单选题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) Enabled (B)Visible(C) Backcolor (D)Caption4. 如果在窗体上已经创建了一个文本框对象Tex

2、tl，可以通过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) 1230 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

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

4、一次11.以下B是正确的For.Next结构。(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 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 有

5、值)，能正确声明可变长数组的是 A 。(A) Dim a( ) As Integer (B) Dim a( ) As IntegerReDim 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 f1(n%, ByVal m%)(C) Sub f1(n%,

6、 m%) (D) Sub f1(ByVal n%, m%)15. 设有如下程序段：Public Sub F1(n%)n=3*n+4End SubPrivate Sub Command1_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) FontItalic (B) FontName (C) FontBold (D) FontSize17

7、. 假定定时器的Interval属性为1000, Enabled属性为True，调用下面的事件过程，程序运行结 束后变量x的值为D 。Dim x As IntegerSub 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) 在“打开”或“另存为”对话框中，用户选择

8、的文件名机器路径可以经 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 码的形式存放在文件中，所以可通过记事本打开(D) 文件的组织结构复杂 21.随

9、机文件是因为 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 Input As #223. 坐标度量单位可由通过来 D 改变。(A)Draws

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

11、ommand1控件上，应对Command1控件设置TabIndex属性的值为0。3. 在VB中，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当用户单击滚动条的空白处时，滑块移动的增量值由 L

12、argeChange 属性决定。9如果菜单标题的某个字母前输入一个 “&”符号，那么该字母就成了热键字母；如果建立菜单 时在标题文本框中输入一个“ - (减号) ”符号，那么显示时形成一个分隔符。10使用 Scale 方法可以自定义坐标系。11使用Line方法画矩形，不许在指令中使用关键字B。12使用 SQL 语句设置 ADO 控件的 RecordSource 属性，这 CommandType 属性需要设置成 1(adCmdText)或者(adCmdUnknown)。13 为了显示一个窗体，所使用的方法为 show ；而为了隐藏一个窗体，所使用的方法为 _Hi d e 。14如果要将某个命令按

13、钮不显示，则可将_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=9Thenform1.Print ch; 是数字字符Else

14、form1.Print ch; 是其他字符End IfEnd Sub输出结果：是数字字符(3)Public Sub Proc(a%( ) )Static i%Doa(i)=a(i)+a(i+1)i=i+1Loop While i2End SubPrivate Sub Command1_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: Print x(i); : Next iEnd Sub输出结果：3 5 7 4 52. 补充程序(1)如下

15、是账号和密码输入的检验程序，运行界面如下图 1所示。输入帐号和密码后，单击 “检验 密码”按钮，如果密码正确则程序结束，假定密码为“S001” ；如果密码不正确，则弹出如下图2所 示对话框，单击“取消”则程序结束，单击“重试”则返回图1窗体，且密码文本框Text2内容被清空, 等待再次输入。补充完整如下程序。图1 图2Private Sub Command1_Click()Dim i AS IntegerIf text2.textS001 Theni = MsgBox(密码错误，5 + vbExclamation,警告)If i 4 ThenEndElseEndText2.SetFocusEnd IfEnd IfEnd Sub(2)以下是求最大公约数和最小公倍数的程序，使用的是辗转相除法，将程序补充完整。Private Sub Form_Click()Dim m%, n%, t%n = lnputBox(输入 n)m = InputBox(输入 m)lf m n Thent=m: m=n: n=tEnd If r = m mod nDo While r 0m = n n =r r = m Mod nLoopPrint m1; ,; n1; 的最大公约数为; nPrint 最小公倍数= , m1*n1/nEnd Sub