vb程序设计多选题10道 东北师范大学1)

2：森携BCD

3：B

4：ABC

5：ABCDE

6：陆春唯ABD

7：ACD

8：早培AD

9：AC

10：BCD

内容:

下列选项中不正确的是

选项:

c、当用 Show方法显示窗体时，必定会发生Load事件

题号:2 题型:单选题

内容:

当目录列表框的Dir1.Path属性的改变，将会触发下列哪一个事件

选项:

c、Dir1_Change事件

题号:3 题型:单选题

内容:

计时器控件的Interval属性可以设定Timer 事件触发的时间间隔，其时间间隔以下列哪一个为单位

选项:

a、毫秒

题号:4 题型:单选题

内容:

对象的边框类型由下列哪个属性设置

选项:

c、BorderStyle

题号:5

内容:如下运算中运算优先级最高的是：

图形:

选项:

d、^

题号:6 题型:单选题

内容:

在使用MsgBox输出时，如果按钮位置是空（默认参数），则相当于使用了参数

选项:

b、VbOkOnly

题号:7 题型:单选物扒题

内容:

当文本框的ScrollBars属性设置了非零值，却没有效果，原因是

选项:

b、文本框的MultiLine属性为False

题号:8 题型:单选题

内容:

CLS可清除窗体或图形框中下列哪一个的内容

选项:

c、程序运行时产生的图形和文字

题号:9 题型:单选题

内容:

要使某控件在运行时不可显示，应对下列哪个属性进行设置

选项:

b、Visible

题号:10 题型:单选题

内容:

用来设置粗体字的属性是

选项:

c、FondBold

题号:11 题型:是非题 本题分数:5

内容:

当数组作为函数过程的参数时，既能以传值唯笑方式传递，也能以传址方式传递

选项:

1、 错

--------------------------------------------------------------------------------

题号:12 题型:是非题

内容:

复选框的Value属性为True时，复选框被选中

选项:

2、 对

题号:13 题型:是非题

内容:

窗体、框架、图片框、图像框都是容器对象

选项:

1、 错

题号:14 题型:是非题

内容:

在属性窗口中可以修改对象的属性

选项:

2、 对

题号:15 题型:是非题

内容:

类是对象的具体化

选项:

2、 对

题号:16 题型:是非题

内容:

文本框控件的MaxLength属性值为0时，在文本框中不可以输入任何字符

选项:

2、 对

题号:17 题型:是非题

内容:

若设置文本框的PasswordChar属性值为某个字符，则用户无论输入何种字符，在文本框中，全部显示为该字符

选项:

2、 对

题号:18 题型:是非题

内容:

程序流程图是唯一一种描述程序执行过程的图形

选项:

1、 错

题号:19 题型:是非题

内容:

If和End If必须成对使用，有一个If就必须有一个End If与之相对应

选项:

1、 错

题号:20 题型:是非题

内容:

VB中建立窗指蚂含体菜单可以选择“工具”菜单的“菜单编辑器”命令来完成

选项:

2、 对

Private Sub Form_Load()

List1.Clear

List1.AddItem ""大学计算机基础""

List1.AddItem ""VB程序设计""

List1.AddItem ""数据库技术与应用""

List1.AddItem ""C程序仔拍洞设计""

List1.AddItem "贺穗"多媒体技术""

List1.AddItem ""硬件技术基础""

List1.AddItem ""网络技术与应用""

List1.AddItem ""WEB程序念枯设计""

End Sub

Private Sub List1_Click()

If List2.ListCount >= 5 Then

MsgBox ""超过5门课程，不能再选！""

Exit Sub

Else

List2.AddItem List1.Text

List1.RemoveItem List1.ListIndex

End If

End Sub

2

Private Sub Command1_Click()

Dim N As Long, Flags As Boolean

N = Val(Text1.Text)

Flags = True

For i = 2 To Sqr(N)

If N Mod i = 0 Then

Flags = False

Exit For

End If

Next

MsgBox N &IIf(Flags, "", "不") &"是一个素数"

End Sub