Question

vb选择题

11.
在窗体上添加一个文本框，名为text1，然后编写如下的load事件过程，则程序的运行结果是__________。 Private Sub Form_Load
Text1.Text=““ Text1.SetFocus For k=1 to 5 t=t*k Next k Text1.Text=t End
Sub(1.7分)

A.在文本框中显示120

B.文本框中仍为空

C.在文本框中显示1

D.出错

12.
在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是__________。(1.7分)

A.．

B.；

C.、

D.:

13. 在设计程序时，应采纳的原则之一是__________。(1.7分)

A.不限制goto语句的使用

B.减少或取消注解行

C.程序越短越好

D.程序结构应有助于读者理解

14.
保存一个工程至少应保存两个文件，这两个文件分别是__________。(1.7分)

A.文本文件和工程文件

B.窗体文件和工程文件

C.窗体文件和标准模块文件

D.类模块文件和工程文件

15.
应用程序设计完成后，应将程序保存，保存的过程是__________。(1.7分)

A.只保存窗体文件即可

B.只保存工程文件即可

C.先保存工程文件，之后还要保存窗体文件

D.先保存窗体文件(或标准模块文件)，之后还要保存工程文件

16.
运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性时，将触发文本框的__________事件。(1.7分)

A.Click

B.Dbl
Click

C.GotFocus

D.Change

17.
在文本框中，当用户键入一个字符时，能同时引发的事件的是__________(1.7分)

A.KeyPress和Click

B.KeyPress和LostFocus

C.KeyPress和Change

D.Change和LostFocus

18. 在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String,n As Integer
Str=UCase(Chr(KeyAscii)) n=Len(str) Text1=String(n,str) End Sub
程序运行后，如果在键盘上输入单字母“k”，则在文本框Text1中显示的内容为__________。(1.7分)

A.kk

B.kK

C.KK

D.Kk

19.
在运行程序时，在文本框中输入新的内容，或在程序代码中改变Text的属性值，相应会触发到__________事件。(1.7分)

A.GotFocus

B.Click

C.Change

D.DblClick

20.
要判断在文本框是否按了Enter键，应在文本框的__________事件中判断。(1.7分)

A.Change

B.KeyDown

C.Click

D.KeyPress

Answer 1

函数原型 Function MsgBox (Prompt, [Buttons As VbMsgBoxStyle = vbOKOnly], [Title], [HelpFile], [Context]) As VbMsgBoxResult 返回值 VbMsgBoxResult 取第二个参数裏指定的button样式中,单击选择的那一个 Const vbAbort = 3 Const vbCancel = 2 Const vbIgnore = 5 Const vbNo = 7 Const vbOK = 1 vbRetry=4 Const vbYes = 6 MsgBox("String1",,"String2","String3",2) 这个函数裏没有指定button样式,所以默认为 vbOKOnly 即提示对话裏只有一个ok 当按下ok後即返回 vbok, [Const vbOK = 1] 所以答案是1

追问

.......