1、程序员-VB 试题及答案解析(总分：60.00，做题时间：90 分钟)一、B试题一/B(总题数：1，分数：15.00)1.在 Visual Basic中，标准模块文件、窗体文件和工程文件的扩展名是什么?请从下列选项中选择： prg、prj、exe、vbp、form、frm、win、fra、std、bas、vbs、vbm 2设某窗体上有一个命令按钮，其名称为 Command Save，运行时该按钮上显示有“保存(S)”字样的信息。为使热键 Alt+S与该命令按钮相关联，应该对按钮 Command Save的 Caption属性设置什么样的属性值? 3设某窗口内有一个图像框Image Frame，
2、以及两个命令按钮“放大”和“缩小”。单击“放大”按钮就会使该图像框的长和宽都放大 20%；单击“缩小”按钮就会使该图像框的长和宽都缩小 20%(该图像框的左上角不动)。请分别写出这两个命令按钮的单击事件过程中的程序代码。 4为使某个单选按钮初始时默认被选中，在开发时应怎样做? 5若有语句 Temp Value = Mag Box(“操作错误!”，vbOKCancel+vbCritical，“提示”)，请简要描述程序运行时弹出的消息框的主要特征。（分数：15.00）_二、B试题二/B(总题数：1，分数：15.00)阅读以下应用说明及 Visual Basic程序代码，将应填入(n)处的字句写在对
3、应栏内。1】本应用程序的窗体中有一个下拉式列表框(名称为 Combol)和两个文本框(名称分别为 Txt_ Content和Txt_Index)。运行时，用户从 Combol的列表中进行选择，程序就会将选中条目的内容以及编号(从 0开始)分别在文本框 Txt_Content和 Txt_Index中显示出来。【程序代码 5.1】Private Sub Combol_Click()Txt_Content Text=CombolU (1) /UTxt_Index Text=CombolU (2) /UEnd Sub(注：可供(2)处选择的选项：Number，List，Index，ListIndex，
4、ListCount)【应用说明 5.2】本应用程序的运行窗口如下图所示。当用户在输入框(名为 Txt_Input)中输入数值数据，并从下拉式列表框(名为 CmbOp)中选择所需的运算后。输出框(名为 Txt_Output)中就会显示运算的结果。用户单击“清除”按钮(名为 CmdClear)后，输入框和输出框都清空。开发该应用的部分程序代码如下：【程序代码 5.2】Private Sub CmbOp_Click()Dim DataIn As Double，DataOut as DoubleDataIn = U(3) /USelect Case U(4) /UCase “取整数部分“DataOut
5、 = Int(DataIn)Case “求平方根“If DataIn0 ThenMagBox “负数不能开平方!“ElseDataOut = sqr(DataIn)End IfCase “取绝对值“DataOut = Abs(DataIn)02502U (5) /UTxt_OutputText=str $(DataOut)End Sub（分数：15.00）(1).（分数：3.00）_(2).（分数：3.00）_(3).（分数：3.00）_(4).（分数：3.00）_(5).（分数：3.00）_三、B试题三/B(总题数：1，分数：15.00)阅读以下应用说明、属性设置及 Visual Bssic
6、程序代码，将应填入(n)处在字句写在对应栏内。【应用说明 7】本应用程序的运行窗口显示一行字“欢迎光临”，还有 2个按钮，一个显示“闪烁”；一个显示“停止”。只要用户单击“闪烁”按钮，文字“欢迎光临”就会以 0.5秒消失、0.5 秒显示反复进行闪烁；单击“停止”按钮时，闪烁停止，恢复图示的初态。在开发过程中，需要设置的属性如表 4.1所示。B 表 4.1 属性设置/B 对象 对象名 属性名 属性值窗体 Frml Caption 闪烁显示演示标签 Label Caption 欢迎光临命令按钮 CmdF Caption 闪烁命令按钮 CmdT Caption 停止定时器 Timerl U(1) /
7、U falseInterval U(2) /U在开发过程中，需要编写的程序代码如下：【程序代码 7】Ptivate Sub CmdF_Click()Timerl Enabled = U (3) /ULabel Visible = FalseEnd SubPtivate Sub Timet1_Timer()Label Visible = not U (4) /UEnd SubPtivate Sub CmdT_Click()Timerl Ensbled = U (5) /ULabel Visible = trueEnd Sub（分数：15.00）(1).（分数：3.00）_(2).（分数：3.00
8、）_(3).（分数：3.00）_(4).（分数：3.00）_(5).（分数：3.00）_四、B试题四/B(总题数：1，分数：15.00)阅读以下应用说明及 Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。【应用说明 9】本应用程序的运行窗口如图 4.2所示。（分数：15.00）(1).（分数：3.00）_(2).（分数：3.00）_(3).（分数：3.00）_(4).（分数：3.00）_(5).（分数：3.00）_程序员-VB 试题答案解析(总分：60.00，做题时间：90 分钟)一、B试题一/B(总题数：1，分数：15.00)1.在 Visual Basic中，标准模块
9、文件、窗体文件和工程文件的扩展名是什么?请从下列选项中选择： prg、prj、exe、vbp、form、frm、win、fra、std、bas、vbs、vbm 2设某窗体上有一个命令按钮，其名称为 Command Save，运行时该按钮上显示有“保存(S)”字样的信息。为使热键 Alt+S与该命令按钮相关联，应该对按钮 Command Save的 Caption属性设置什么样的属性值? 3设某窗口内有一个图像框Image Frame，以及两个命令按钮“放大”和“缩小”。单击“放大”按钮就会使该图像框的长和宽都放大 20%；单击“缩小”按钮就会使该图像框的长和宽都缩小 20%(该图像框的左上角不
10、动)。请分别写出这两个命令按钮的单击事件过程中的程序代码。 4为使某个单选按钮初始时默认被选中，在开发时应怎样做? 5若有语句 Temp Value = Mag Box(“操作错误!”，vbOKCancel+vbCritical，“提示”)，请简要描述程序运行时弹出的消息框的主要特征。（分数：15.00）_正确答案：()解析：标准模块文件的扩展名是 bas，窗体文件的扩展名是 frm，工程文件的扩展名 vbp。 (2)可将按钮的 Caption属性设置为“保存(&S)”。 (3)解答：“放大”按钮单击事件过程中的程序代码： ImageFrameWidth=ImageFrameWidth*1.2
11、 ImageFrameHeight = ImageFrameHeight*1.2 “缩小”按钮单击事件过程中的程序代码： ImageFrameWidth = ImageFrameWidth*0.8 ImageFrameHeight=ImageFrameHeight*0.8 (4)将该单选按钮的 Value属性值设置成 True。 (5)消息框的标题栏显示“提示”：消息框中有一个出错标记以及两个命令按钮，分别显示“确定”和“取消”；消息框中显示的信息为“操作错误!”。二、B试题二/B(总题数：1，分数：15.00)阅读以下应用说明及 Visual Basic程序代码，将应填入(n)处的字句写在对
12、应栏内。1】本应用程序的窗体中有一个下拉式列表框(名称为 Combol)和两个文本框(名称分别为 Txt_ Content和Txt_Index)。运行时，用户从 Combol的列表中进行选择，程序就会将选中条目的内容以及编号(从 0开始)分别在文本框 Txt_Content和 Txt_Index中显示出来。【程序代码 5.1】Private Sub Combol_Click()Txt_Content Text=CombolU (1) /UTxt_Index Text=CombolU (2) /UEnd Sub(注：可供(2)处选择的选项：Number，List，Index，ListIndex，
13、ListCount)【应用说明 5.2】本应用程序的运行窗口如下图所示。当用户在输入框(名为 Txt_Input)中输入数值数据，并从下拉式列表框(名为 CmbOp)中选择所需的运算后。输出框(名为 Txt_Output)中就会显示运算的结果。用户单击“清除”按钮(名为 CmdClear)后，输入框和输出框都清空。开发该应用的部分程序代码如下：【程序代码 5.2】Private Sub CmbOp_Click()Dim DataIn As Double，DataOut as DoubleDataIn = U(3) /USelect Case U(4) /UCase “取整数部分“DataOut
14、 = Int(DataIn)Case “求平方根“If DataIn0 ThenMagBox “负数不能开平方!“ElseDataOut = sqr(DataIn)End IfCase “取绝对值“DataOut = Abs(DataIn)02502U (5) /UTxt_OutputText=str $(DataOut)End Sub（分数：15.00）(1).（分数：3.00）_正确答案：()解析：(2).（分数：3.00）_正确答案：()解析：Listlndex 解析 组合框的 Listlndex属性用于取得选中的项的编号。(3).（分数：3.00）_正确答案：()解析：Val(Txt_
15、InputText)或 Txt_InputText 解析 此处的 Val(Txt_InputText)或Txt_InputText 能够取得用户的输入。(4).（分数：3.00）_正确答案：()解析：CmbOpText 解析 此处以组合框的当前值做为分支依据。(5).（分数：3.00）_正确答案：()解析：EndSelect 解析 此处是分支语句结束，应当填结束标志。三、B试题三/B(总题数：1，分数：15.00)阅读以下应用说明、属性设置及 Visual Bssic程序代码，将应填入(n)处在字句写在对应栏内。【应用说明 7】本应用程序的运行窗口显示一行字“欢迎光临”，还有 2个按钮，一个显
16、示“闪烁”；一个显示“停止”。只要用户单击“闪烁”按钮，文字“欢迎光临”就会以 0.5秒消失、0.5 秒显示反复进行闪烁；单击“停止”按钮时，闪烁停止，恢复图示的初态。在开发过程中，需要设置的属性如表 4.1所示。B 表 4.1 属性设置/B 对象 对象名 属性名 属性值窗体 Frml Caption 闪烁显示演示标签 Label Caption 欢迎光临命令按钮 CmdF Caption 闪烁命令按钮 CmdT Caption 停止定时器 Timerl U(1) /U falseInterval U(2) /U在开发过程中，需要编写的程序代码如下：【程序代码 7】Ptivate Sub Cm
17、dF_Click()Timerl Enabled = U (3) /ULabel Visible = FalseEnd SubPtivate Sub Timet1_Timer()Label Visible = not U (4) /UEnd SubPtivate Sub CmdT_Click()Timerl Ensbled = U (5) /ULabel Visible = trueEnd Sub（分数：15.00）(1).（分数：3.00）_正确答案：()解析：(2).（分数：3.00）_正确答案：()解析：500 解析 单击“闪烁” 按钮后，文字才开始闪烁，所以初始时定时器并未启动，(1)
18、处应填定时器的 Enabled属性。定时器的时间间隔为 0.5秒，即 500毫秒，所以(1)处应填 500(Interval属性的单位是毫秒)。(3).（分数：3.00）_正确答案：()解析：True(4).（分数：3.00）_正确答案：()解析：Label.Visible(5).（分数：3.00）_正确答案：()解析：false 解析 单击“闪烁”按钮后，应启动定时器，所以修改 Timerl的 Enable属性为 True。定时器到时的时候，应当使 Label的是否可见属性(Visible)取反，所以(4)处应填 LabelVisible。单击“停止”按钮后，应停止定时器，所以修改 Time
19、rl的 Enable属性为 false。四、B试题四/B(总题数：1，分数：15.00)阅读以下应用说明及 Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。【应用说明 9】本应用程序的运行窗口如图 4.2所示。（分数：15.00）(1).（分数：3.00）_正确答案：()解析：(2).（分数：3.00）_正确答案：()解析：Kpaylevel(j) 解析 此处是判断当前职工的工资是否超过第 j级，所以应填入 Kpaylevel(j)。(3).（分数：3.00）_正确答案：()解析：taxPrate(j-1)/100 解析 此处，当前职工的工资不超过第 j级，计算它与第 j-1级的差额的所得税，所以应填入税率，即 taxPrate (j-1)/100。(4).（分数：3.00）_正确答案：()解析：Str $(S) 解析 此处输出计算的结果，所以应填入 Str $(S)。(5).（分数：3.00）_正确答案：()解析：false 解析 在(5)处，由于免税金额不可修改，所以应该将它的 Enable属性设置为 false。
