2015年VB操作题第一套
试题一：（30分）
用VB编制一个程序，初始界面如图1，文本框显示程序运行输入的文本（文本框有垂直滚动条，文本为红色）。程序运行时可通过复选框对文本字形进行设置，效果如图2，只有当文本框内容非空时“结束”按钮才有效，单击“结束”按钮结束程序运行。 图1 图2 操作要求： 1．（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到考生文件夹下。
2.（12分）参照图1和图2完成界面设计：按表添加相关对象并设置相关的属性：
表1 （每个属性1分，共12分） 对象名 属性 属性值 对象名 属性 属性值 Form1 Label1 Text1 Text1 Command1 caption caption multiline forecolor name 字体效果 请您留下宝贵意见 true cmd1 Label1 Text1 Text1 Check2 name name lab1 txt1 scrollbars 2 caption caption 加粗 斜体 &H000000FF& Check1 Command1 caption 结束 Command1 enabled false 3.（1）（4分）编写适当的事件（2分）：只有当文本框内容非空时“结束”按钮才有效。 （不用能VB函数）（代码2分） （2）（4分）单击“加粗”复选框时，文本框中的文字显示加粗效果；否则取消； （要求不能用IF语句来实现）（事件2分，一条代码2分） （3）（4）单击“斜体”复选框时，文本框中的文字显示斜体效果，否则取消。 （要求不能用IF语句来实现）（事件2分，一条代码2分）
4. （2分）保存窗体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。
Private Sub Check1_Click()
txt1.FontBold = Not txt1.FontBold End Sub
Private Sub Check2_Click()
txt1.FontItalic = Not txt1.FontItalic End Sub
1
Private Sub Command1_Click() End End Sub '答案两种： ' 方法一：
'Private Sub Txt1_Change() 'If Txt1.Text = \'cmd1.Enabled = False 'Else
'cmd1.Enabled = True 'End If 'End Sub '方法二
Private Sub Txt1_Change() If txt1.Text <> \ cmd1.Enabled = True Else
cmd1.Enabled = False End If End Sub
Private Sub cmd1_Click() End End Sub
试题二（25分） 1．（13分）有一个VB程序，其功能是：根据身高和体重判断胖瘦，程序运行界面如图3和图4所示。胖瘦条件：如果身高与体重之差大于等于110，则表示“你太瘦了！”；如果身高与体重之差小于等于100，则表示“你太胖了！”；如果身高与体重之差在100――110之间，则表示“你的身材真好！” 图1 图2 打开某路径下的工程文件test2-1.vbp，完成下列操作： （1）（3分）当用户在文本框1输入身高时，命令按钮command1有效，添加适当的事件和代码实现此功能。(事件1分，一句代码2分)
2
（2）（8分）完成相应注释1和注释2处的修改，实现根据身高和体重判断胖瘦的功能并显示“退出”按钮注释3处添加一条代码（2分），同时“计算”按钮无效注释4处添加一条代码（2分）。（每格2分，共4分）
（3） （2分）保存窗体文件和工程文件，生成可执行文件test2-1.exe保存到试题目录下的“试题一”文件夹。
Private Sub Command1_Click()
Dim h As Single, w As Single, x As Single h = Val(Text1.Text) w = Val(Text2.Text) x = h - w
If x >= 110 Then
Label4.Caption = \你太瘦了！\ElseIf x > 100 Then
Label4.Caption = \你的身材真好！\Else
Label4.Caption = \你太胖了！\End If
Command2.Visible = True Command1.Enabled = False End Sub
Private Sub Command2_Click() End End Sub
Private Sub Text1_Change() Command1.Enabled = True End Sub 2．（12分）填空完成VB程序，其功能是求某一天是这一年的第几天，界面设计和程序运行效果如图5所示。
图5
打开某路径下的工程文件
test2-2.vbp，完成下列操作：
（1）10分）输入某一天（年、月、日），单击“开始”按钮，计算这一天在本年中的天数（第几天）完成注释（1）（2）（3）（4）（5）填空实施此功能。（每空2分，共10分） （2）（2分）保存窗体文件和工程文件，生成可执行文件test2-2.exe保存到试题目录下的“试题二”文件夹。
Option Base 1
Private Sub Command1_Click() Dim a, T%, y%
a = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
3