内容发布更新时间 : 2024/12/23 3:42:55星期一 下面是文章的全部内容请认真阅读。

.

List1.AddItem \ List1.AddItem \ List1.AddItem \End Sub

Private Sub Command1_Click()

List1.List(List1.ListCount) = \End Sub

程序运行后，单击命令按钮，其结果为______。 A：把列表框中原有的最后一项改为\

B：把字符串\添加到列表框的最后（即\的后面） C：把字符串\添加到列表框中，但位置不能确定

D：把字符串\插入到列表框的最前面（即\的前面）

参考答案：B

35、在窗体上画1个命令按扭（名称为Command1）和1个文本框（名称为Text1），然后编写如下事件过程：

Private Sub Command1_Click() x=Val(Text1.Text) Select Case x Case 1,3 y=x*x

Case Is>=10,Is<=-10 y=x

Case -10 To 10 y=-x End Select End Sub

程序运行后，在文本框中输入3，然后单击命令按扭，则以下叙述中正确的是______。

A：先执行y=x*x，再执行y=-x B：执行y=-x C：执行y=x*x D：程序出错

参考答案：C

36、以下不能输出\的语句是______。 A：Print Left(\ B：Print Right(\ C：Print Mid(\ D：Print Mid(\

参考答案：A .

.

37、窗体上有1个名称为Text1的文本框和1个名称为Command1的命令按钮。要求程序运行时，单击命令按钮，就可把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面能够正确实现上述功能的程序是______。 A：Private Sub Command1_Click() Open \ Print #1,Text1.Text Close #1 End Sub

B：Private Sub Command1_Click() Open \ Print #1,Text1.Text Close #1 End Sub

C：Private Sub Command1_Click() Open \ Print #1,Text1.Text Close #1 End Sub

D：Private Sub Command1_Click() Open \ Print #1,Text1.Text Close #1 End Sub 参考答案：A

38、设有如图所示窗体和以下程序：

Private Sub Command1_Click() Text1.Text=\End Sub

Private Sub Text1_LostFocus() If Text1.text<>\ Text1.Text=\ Text1.SetFocus End If End Sub

程序运行时，在Text1文本框中输入\（如图所示），然后单击Command1按钮，则产生的结果是______。

A：文本框中为\，焦点在文本框中 B：文本框中无内容，焦点在文本框中 C：文本框中为\，焦点在按钮上

D：文本框中为\，焦点在按钮上 .

.

参考答案：B

39、为了使一个窗体从屏幕消失但仍在内存中，所使用的方法或语句为______。 A：Unload B：Load C：Show D：Hide

参考答案：D

40、某人创建了1个工程，其中的窗体名称为Form1；之后又添加了一个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是______。 A：把Form2的TabIndex属性设置为1，把Form1的TabIndex属性设置为2 B：在Form1的Load事件过程中加入语句Load Form2 C：在Form2的Load事件过程中加入语句Form2.Show D：在工程属性对话框中把\启动对象\设置为Form2

参考答案：D

41、CommonDialog控件可以显示______种对话框。 A：4种 B：5种 C：7种 D：6种

参考答案：D

42、现有语句：y=IIf(x>0,xMod3,0) 设x=10，则y的值是______。

A：语句错误 B：1 C：3 D：0 参考答案：B

43、假定有下表所列的菜单结构： 标题 显示 大图标 小图标 名称 appear bigicon smallicon 层次 1（主菜单） 2（子菜单） 2（子菜单） 要求程序运行后，如果单击菜单项\大图标\，则在该菜单项前添加一个\。以下正确的事件过程是______。

A：Private Sub bigicon_Click() Me.appear.bigicon.Checked = True End Sub

B：Private Sub bigicon_Click() bigicon.Checked = False .

.

End Sub

C：Private Sub bigicon_Click() bigicon.Checked = True End Sub

D：Private Sub bigicon_Click() appear.bigicon.Checked = True End Sub 参考答案：C

44、函数过程F1的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码的是______。 A：Function F1(b As Integer) If b Mod 2 = 0 Then Return 0 Else

Return 1 End If

End Function

B：Function F1(b As Integer) If b Mod 2 = 0 Then F1 = 1 Else F1 = 0 End If

End Function

C：Function F1(b As Integer) If b Mod 2 = 0 Then F1 = 0 Else F1 = 1 End If

End Function

D：Function F1(b As Integer) If b Mod 2 <> 0 Then Return 0 Else

Return 1 End If

End Function 参考答案：C

45、要使一个文本框可以显示多行文本，应设置为True的属性是______。 A：MultiLine B：Enabled .

.

C：MaxLength D：Width 参考答案：A

46、以下关于图片框控件（PictureBox）的说法中，错误的是______。 A：用Stretch属性可以自动调整图片框中图形的大小 B：清空图片框控件中图形的方法之一是加载一个空图形 C：图片框控件可以作为容器使用

D：可以通过Print方法在图片框中输出文本 参考答案：A

47、以下有关数组定义的语句序列中，错误的是______。 A：Static arr1(3) arr1(1)=100 arr1(2)=\ arr1(3)=123.45

B：Option Base 1

Private Sub Command3_Click() Dim arr3(3) As Integer …… End Sub

C：Dim arr2() As Integer Dim size As Integer

Private Sub Command2_Click() size=InputBox(\输入:\ ReDim arr2(size) …… End Sub

D：Dim n As Integer

Private Sub Command4_Click() Dim arr4(n) As Integer …… End Sub 参考答案：D

48、用Write和Print语句向文件中写入多个数据的差别在于______。

A：Print语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格 B：Print语句自动在数据项之间插入逗号

C：Write语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格 D：Write语句不会自动在数据项之间插入逗号 参考答案：C .