2014年3月计算机二级考试VF临考预测试卷及答案8

　　二、基本操作题

　　(1)根据题意，新建“标准EXE”工程，在窗体空白处单击右键，选择菜单编辑器添加以下菜单项：

　　单击“确定”按钮，单击 按钮运行程序，并按要求保存即可。

　　(2)根据题意，新建“标准EXE”工程，在窗体中画一个框架控件和一个文本框控件，将框架的名称设置为Frame1、Caption属性设置为框架、Height、Width属性分别设置为2 500、3 500，将文本框的Text属性设置为文本框，Left、Top属性分别设置为500、1 000。

　　单击 按钮运行程序，并按要求保存。

　　三、简单应用题

　　(1)向列表框中添加项目可以用AddItem方法，也可以在属性窗口中设置。但题目中要求程序运行后自动添加，所以这里应该用代码实现。列表框的Text属性为最后一次选中的表项的文本，也就是要显示在

　　文本框中的。补充后的代码如下：

　　Private Sub Form_Load()

　　List1.AddItem"Temp1" ’加入元素l

　　List1.Addhem"Temp2" ’加入元素2

　　List1.AddItem"Temp3"

　　List1.AddItem"Temp4"

　　last1.AddItem"Temp5"

　　End Sub

　　Private Sub Command1Click()

　　Text1_Text=List1.Text’将List1中选中的文本赋值给Text1的文本

　　End St,b

　　单击 按钮运行程序，并按要求保存。

　　(2)单击命令按钮触发Click事件，本题程序中主要是判断复选按钮的状态和在标签上显示复选按钮的Caption属性值，判断复选按钮的状态可以通过Value属性来实现。如果复选按钮被选中，则Value值为1， 　　否则Value值为0。把复选按钮的Caption属性值赋给标签的Caption属性即可显示相应的文字。补充后的代码如下：

　　Privat(Sub Command1 Click()

　　Dim str As String

　　str="我喜欢的运动是"

　　If Cheek1.Value Then

　　str=str+Check1.Caption

　　Else

　　str=str

　　End If

　　If Cheek2 Value Then

　　str=str +Check2.Caption

　　Else

　　str=str

　　End If

　　If Check3.Value Then

　　str=str+Check3.Caption

　　Else

　　str=Str

　　End If

　　If Check4.Value Then

　　str=str+Check4.Caption

　　Else

　　str=str

　　End If

　　Label1.Caption=str

　　End Sub

　　Private Sub Form_Load()

　　Label1.Caption=""

　　End Sub

　　单击 按钮运行程序，并按要求保存。

　　相关推荐：

　　2014年全国计算机二级考试VF上机冲刺试卷汇总

　　考试吧考后首发2014年3月计算机二级真题及答案通知

　　考试吧推荐：2014年3月计算机二级考前冲刺备考专题