Private Sub Text1_KeyPress(KeyAscii As Integer)

If Chr(KeyAscii) > \ KeyAscii = 0 End If End Sub

运行时，文本框中能输入的字符是（B ）。 A 字母 B 大写字母 C 大写字母外的其它字符 D 不能输入字母

30811 文本框没有（ D）属性。 A Name B Left C Font D Caption

30812 要使文本框能显示多行文本，需设置（B ）。 A AutoSize属性为True B MultiLine属性为True C SingleLine属性为False D MaxLines属性大于1

30813 能使文本框Text1中文本不可编辑的语句是（ ）。 D A Text1.Editable = False B Text1.Enabled = True C Text1.TabStop = False D Text1.Locked = True

30814 设置文本框的（ ）属性，可限制文本框中能输入文本的最大长度。 A A MaxLength B Width C MultiLine D MaxText

30815 窗体上有文本框Text1和命令按钮Command1，对Command1编写如下事件过程：

Private Sub Command1_Click() Text1.Text = \ Text1.SelStart = 1 Text1.SelLength = 3 MsgBox Text1.SelText End Sub

运行时，单击命令按钮，出现的信息框显示（ ）。 B A 12345 B 234 C 123 D \

30816 在窗体上有一个名称为Text1的文本框，要得到在其中输入字符的ASCII码，应使用它的（ A ）事件。 A KeyPress B KeyUp C KeyDown D Change

30817 由系统触发的事件有（ C ）。 A MouseMove,MouseUp,MouseDown B Hscrollbox,Click,DblClick C Initialze,Load,Timer

D KeyPress,KeyUp,KeyDown

30818 要用文本框控件Text1实现一个密码输入框，可以通过（ A ）设置，使得

13

无论用户输入什么字符文本框只显示“*”。

A Text1.PasswordChar = \ B Text1.Font = \ C Text1.Text = \ D Text1.Appearance = \

30819 要对文本框Text1中的文本加删除线，可以通过（ B ）来实现。 A Text1.Font.FontStrikethru = True B Text1.FontStrikethru = True

C Text1.Font = vbStrikethru D Text1.Style = vbStrikethru

30820 下列语句中，除（ ）以外，都能使文本框Text1不可编辑（ C ）。 A Text1.Locked = True B Text1.Visible = False C Text1.ReadOnly = True D Text1.Enabled = False 30821 下列叙述正确的是（B）。

A) 当文本框的内容发生变化时，必将触发LostFocus事件

B) 设置文本框的MaxLength属性，可限制文本框中能输入文本的最大长度

C) AutoSize属性为True时，能使文本框Text1自动改变大小以适应其文本内容的多少

D) 文本框不具有Left属性

30822 为了使标签Label1有边框，正确的属性设置为（B）。 A) Label1.BorderStyle=0 B) Label1.BorderStyle=1 C) Label1.BackStyle=0 D) Label1.BackStyle=0

30901 设置图像框的（C ）可使框内的图片按图像框大小自动调整。 A AutoSize属性为True B AutoSize属性为False C Stretch属性为True D Stretch属性为False 30902 下列语句组：

ScaleWidth = 100 : ScaleHeight = 100 Circle(50, 40) ,10, , , ,2 绘制的是（B ）。

A 圆形 B 椭圆 C 扇形 D 弧线

30903 将当前目录下的图形文件Clock.jpg装入图片框Picture1的语句是（ D）。 A Picture = \

B Picture = LoadPicture(\C Picture1.Picture = \

D Picture1.picture = LoadPicture(\

30904 设置Line控件的（A ）属性可使其呈现不同式样。 A BorderStyle B Style C FillStyle D Shape 30905 下列叙述中，错误的是（B ）。 A Scale方法用来定义新坐标系

B 窗体缺省坐标原点在窗体的左下角

CScaleLeft和ScaleTop属性可改变坐标系的原点位置。

D ScaleWidth和ScaleHeight属性可改变其对象高度和宽度的刻度单位 30906 下列叙述错误的是（D ）。

14

A Pset方法用于绘制点

B Circle方法用于画圆、椭圆、圆弧和扇形 C Line方法用于画直线或矩形 D Ponit方法用于绘制有颜色的点

30907 设置图片框的（ A）使其按图片尺寸自动调整大小。 A AutoSize属性为True B AutoSize属性为False C Stretch属性为True D Stretch属性为False 30908 不属于VB作图方法的是（ C）。 A Pset B Line C Shape D Circle 30909 VB的图形控件不包括（ B）。 A 直线 B 框架 C 图像框D 图片框

30910 为了清除图片框内绘制的图形，应采用的正确方法是（B ）。 A 选择图片框，然后按Del键 B 执行语句Picture1.Cls C 执行语句Picture1.Clear

D 执行语句Picture1.Picture=LoadPicture(\

30911 窗体中有标签、文本框和用图形方法绘制的图形，它们依次位于哪一图形层（ B）。

A 上层、中层和下层 B 中层、上层和下层 C 下层、中层和上层 D 上层、下层和中层

30912 设置Shape控件的（D ）属性可使其呈现不同形状。 A BorderStyle B Style C FillStyle D Shape

30913 下列语句可使Shape1控件呈现为实心图形的是（ ）。 D A shape1.BorderStyle = 0 B Shape1.BackStyle = 0 C Shape1.Shape = 3 D Shape1.FillStyle = 0

30914 将当前目录下的图像文件Clock.jpg装入图像框Image1的语句是（ ）。 D A Image = \

B Image = LoadPicture(\C Image1.Picture = \

D Image1.Picture = LoadPicture(\

30915 为了清除图片框(PictureBox)内装入的图片，应采用的正确方法是（ ）。 D A 选择图片框，然后按Del键 B 执行语句Picture1.Cls C 执行语句Picture1.Clear

D 执行语句Picture1.Picture=LoadPicture(\

30916 窗体上有一命令按钮Command1，编写下列事件过程:

Private Sub Command1_Click()

a = 100: b = 150: c = 2000: d = 2000 Cls

Line (a, b)-(c, d), vbBlue, B

End Sub

15

运行时，单击按钮窗体上显示（ A ）。

A 一个未填充的矩形 B 一条直线 C 一个填满了颜色的矩形 D 无任何图形 30917 窗体上有一命令按钮Command1，编写下列事件过程:

Private Sub Command1_Click() c = 2000: d = 2000

Cls

Circle Step(c, d), 1000, vbRed, 3.14, 2 * 3.14, 1 End Sub

运行时，单击按钮，窗体上显示（ C ）。

A 一个填充的圆 B 一个未填充的圆 C 一段圆弧 D 一个点

30918 执行指令\后，Form1的CurrentX的值 为（D）。

A) 1000 B) 1500 C) 500 D) 2500

30919 Pset方法绘制的点的大小受其容器对象的（ A ）属性的影响。 A) DrawWidth B) Picture C) AutoRedraw D) stretch

31001 复选框的Value属性为0表示（A ）。 A 复选框未被选中B 复选框被选中 C 复选框内有灰色的钩 D 操作出错

31002 单选按钮被选定时，其Value属性为（ C）。 A 1 B 0 C True D False

31003 运行时，下列哪种方法不能选中单选按钮（ B）。 A 用鼠标单击单选按钮

B 在属性窗口中将单选按钮的Value属性设置为1

C 用Tab键将焦点转移到一组单选按钮后单击其中的单选按钮 D 采用单选按钮的访问键快捷方式

31004 下列（B ）语句使复选框Check1无效。 A Check1.Value = 1B Check1.Value = 2 C Check1.Style = 1D Check1.Style = 0

31005 下列（ D）语句使复选框Check1的标题显示在左边。 A Check1.Style = 0 B Check1.Alignment = 0 C Check1.Style = 1 D Check1.Alignment = 1

31006 下列（B ）语句设置单选按钮Option1为选中状态。 A Option1.Value = 0 B Option1.Value = True C Option1.Value = 1 D Option1.Value = False

31007 复选框和单选按钮的（A ）属性可以反应其当前状态。 A Value B Checked C Caption D Selected 31008 单选按钮不具有（ B）属性。

16