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