vb操作题

1.在以下有关对象属性的叙述中错误的是_______。

Enabled属性值设为False的控件对象在窗体上将不可见

2. 有如下程序：

Private Sub Command1_Click()

x = InputBox("input value")

Select Case x

Case Is > 0

y = x + 1

Case Is = 0

y = x + 2

Case Else

y = x + 3

End Select

Print x; y

End Sub

假设运行时从键盘上输入-5，输出结果是___-5 -2 ____。

3. Private Sub C1_Click()

Text1.Text = ""

If Ch1.Value And Not Ch2.Value Then Text1.Text = "报名参加羽毛球比赛"

If Ch1.Value = 0 And Ch2.Value Then Text1.Text = "报名参加乒乓球比赛"

If Ch1.Value And Ch2.Value = 1 Then Text1.Text = "报名参加羽毛球和乒乓球比赛"

End Sub

4.下列程序段的执行结果为11 3 ________。

Dim M(10), N(10)

i = 3

For j = 1 To 5

M(j) = j

N(i) = 2 * i + j

Next j

Print N(i); M(i)

5.窗体的Name属性为Frm1，在窗体模块通用声明处和过程Sub1中分别用Public K As Integer,Dim K As Integer声明了两个同名变量K，则在过程Sub1中要访问全局变量K，可采用______Frm1.k _____。

6.在VB中有一行程序代码：Text1.Text="Visual Basic",其中的Text1、Text和"Visual Basic"分别代表____对象、属性、值__。

7.在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为https://www.360docs.net/doc/dc7282325.html,bel2，标题分别为空白和"共有文件"的标签。编写程序，使得驱动器列表框与目录列表框.目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。能够正确实现上述功能的程序是: Private

Sub Dir1_Change()

File1.Path = Dir1.Path

Label1.Caption = File1.ListCount

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

Label1.Caption = File1.ListCount

End Sub

8.下列符号常量的声明中，______是不合法的。Const a As Double =Sin(1)

运行下列程序，依次点击第一个和第二个按钮，结果为__10 0_________。

Dim a As Integer ' 在窗体通用部分定义a为窗体模块级的变量

Private Sub Command1_Click()

Dim b As Integer

a = 10

b = 20

End Sub

Private Sub Command2_Click()

Dim b As Integer

Print a;

Print b

End Sub

9. （1）在考生文件夹中有工程文件wy5.vbp及其窗体文件wy5.frm，该程序是不完

整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号）但不能修改其他部分。存盘时不得改变文件名和文件夹。

本题描述如下：

在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一

个命令按钮，名称为C1，标题为"复制"。要求程序运行后，在列表框中

自动建立四个列表项，分别为"Item1"、"Item2"、"Item3"、"Item4"

如果选择列表框中的一项，则单击"复制"按钮时，可以把该项复制到文本

框中（如图所示）。

***********************************************************************

（2）在考生文件夹中有工程文件wy6.vbp及其窗体文件wy6.frm ，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号）但不能修改其它部分。存盘时不得改变文件名和文件夹。

本题描述如下：

在窗体有三个复选框，名称分别为Ch1、Ch2和Ch3，标题依次为"体育"、

"音乐"、"美术"，还有一个命令按钮，名称为C1，标题为"显示"。要

求程序运行后，如果选中某个复选框，则当单击"显示"命令按钮时，则显示

相应的信息。例如，如果选中"体育"和"音乐"复选框，则单击"显示"

命令按钮后，在窗体上显示"我的爱好是体育音乐"（如图所示）；而如果

选中"体育"、"音乐"和"美术"复选框，则单击"显示"按钮后，在窗

体上显示"我的爱好是体育音乐美术"。

1.Option Explicit

Private Sub C1_Click()

Dim i As Integer

' For i = 0 To List1.ListCount - 1

If List1.Selected(i) = True Then

' text1.text = List1.List(i)

End If

Next i

End Sub

Private Sub Form_Load()

List1.AddItem "Item1"

List1.AddItem "Item2"

List1.AddItem "Item3"

List1.AddItem "Item4"

End Sub

2. Private Sub C1_Click()

' Dim s As string

s = "我的爱好是"

If Ch1.Value = 1 Then

s = s + Ch1.Caption

End If

If Ch2.Value = 1 Then

s = s + Ch2.Caption

End If

If Ch3.Value = 1 Then

s = s + Ch3.Caption

End If

' Print s

End Sub

10. 函数InStr("VB程序设计教程"，"程序")的值为_3_____。

11.下面表达式中，___Exp（-3.5）___的运算结果与其他三个不同。

11. 若在应用程序中用"Private Sub Sub1(X As Integer, Y As Single)"定义了子程序Sub1，

以下调用子程序Sub1的Call语句中__Call Sub1(5)_________是错误的。

12. 以下叙述中错误的是_______Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性

13.刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是___通用对话框_____。

14. 假定在窗体上建立了通用对话框，其名称为CommonDialog1 ，用下面的语句可以建立一个对话框:

CommonDialog1.Action = 2

与该语句等价的语句是__CommonDialog1.showsave _________。

15.

第一题：

新建一个工程，双击控件面板上的"TextBox"控件，在窗体Form1上自动添加一个"名称"为"Text1"的文本框，在属性页上把"Text"属性设为""，单击标准工具栏上的"菜单编辑器"按钮，通过单击"下一个"按钮切换，分别在"标题框"和"名称框"中输入题面中要求的菜单名称及标题。再选中要设置成子菜单的项目，并单击向右的箭头，设置成主菜单的二级菜单。单击"查看代码"按钮，输入以下代码：

Private Sub blue.Click()

Private Sub red.Click()

Text1.Text = "red"

'或Text1.Text = red.Caption

End Sub

Private Sub yellow.Click()

Text1.Text = "yellow"

'或Text1.Text = yellow.Caption

End Sub

单击标准工具栏中的"保存工程"按钮，选择考生文件夹，以文件名wy5.frm，wy5.vbp分别保存。

第二题：

选择"打开工程"命令，选择考生文件夹下的wy6.vbp文件，打开，右键单击Form1窗体，选择"查看代码"选项，在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），修改后正确的程序代码如下：

Private Sub C1_Click()

Text1.Text = ""

If Ch1.Value = 1 Then

Text1.Text = Text1.Text + "程序设计"

End If

If Ch2.Value Then

If Text1.Text <> "" Then Text1.Text = Text1.Text + "和"

Text1.Text = Text1.Text + "数据库原理"

End If

If Text1.Text <> "" Then

Text1.Text = "学习" + Text1.Text

End If

End Sub

单击标准工具栏上的"保存工程"按钮，将修改后的结果加以保存。