2019(上)机试模拟-综合应用题1(10套....docx
第1套综合练习题(一)
在考生文件夹中，完成以下要求：
1.启动工程文件sjt.vbp，将该工程文件的工程名称改为“spks”，窗体文件sjt.frm的窗体名称改为“vbbc”，窗体的标题改为“计算距离”。
2.在窗体上添加以下控件：框架Frame1、Frame2，Frame1标题为“输入坐标”，Frame2标题为空；在Frame1中添加标签Label1、Label2，标题分别为“横坐标”、“纵坐标”；添加文本框Text1、Text2；在Frame2中添加命令按钮Command1，标题为“计算”，添加标签Label3。（以上操作在属性窗口中完成）
3.编写代码实现：单击“计算”按钮，如果Text1或Text2为空，则用MsgBox函数提示输入，否则计算该点到原点的直线距离，并将结果显示在Label3中。运行效果如下图所示：
4.调试、运行程序，并将工程、窗体保存。
参考程序如下：
Dim s As Integer
Private Sub Command1_Click()
s = 0
If Text1.Text = "" Then
MsgBox ("请输入横坐标！")
Else
s = s + 1
End If
If Text2.Text = "" Then
MsgBox ("请输入纵坐标！")
Else
s = s + 1
End If
If s = 2 Then
x = Val(Text1.Text)
y = Val(Text2.Text)
Label3.Caption = "到原点的直线距离：" + Str(Sqr(x ^ 2 + y ^ 2))
End If
End Sub
第2套综合练习题(一)
在考生文件夹中，完成以下要求：
1.启动工程文件sjt.vbp，将该工程文件的工程名称改为“spks”，并将该工程中的窗体文件sjt.frm的窗体名称改为“vbbc”，窗体的标题为“图片自动播放”。
2.在窗体上添加以下控件：命令按钮Command1、Command2，标题分别为“正常”、“加快”；计时器Timer1，Interval值为2000，Enabled值为False；图像框Image1，Stretch值为True。（以上操作在属性窗口中完成）
3.编写代码实现：单击“正常”按钮，计时器Timer1可用；使用Timer1的Timer事件，实现三张图片自动循环浏览，要求使用LoadPicture函数加载考生文件夹下三张图片；单击“加快”按钮，加快图片自动循环显示（要求通过代码修改Timer1的Interval值实现）。运行效果如下图所示：
4.调试、运行程序，并将工程、窗体保存。
参考程序如下：
Dim flag As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 2000
Command1.Enabled = False
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Interval = 1000
Command1.Enabled = True
Command2.Enabled = False
End Sub
Private Sub Form_Load()
flag = 0
End Sub
Private Sub Timer1_Timer()
If flag = 0 Then Image1.Picture = LoadPicture(App.Path + "\cimage001.jpg")
If flag = 1 Then Image1.Picture = LoadPicture(App.Path + "\cimage002.jpg")
If flag = 2 Then Image1.Picture = LoadPicture(App.Path + "\cimage003.jpg")
flag = flag + 1
If flag = 3 Then flag = 0
End Sub
第3套综合练习题(一)
在考生文件夹中，完成以下要求：
1.启动工程文件sjt.vbp，将该工程文件的工程名称改为“spks”，并将该工程中的窗体文件sjt.frm的窗体名称改为“vbbc”，窗体的标题为“图片投票”。
2.在窗体上添加以下控件：标签Label1、Label2、Label3，Alignment属性值均设置为Center；图像框Image1、Image2、Image3，Stretch值为True，通过Picture属性加载考生文件夹下三个图像；单选按钮Option1、Option2、Option3，标题分别为“001”、“002”、“003”。（以上操作在属性窗口中完成）
3.编写代码实现：分别编写三个图像框的Click事件，单击图片，其对应的单选按钮被选中，同时，该图片投票数加1，并将得票数显示在上方的标签中。运行效果如下图所示：
4.调试、运行程序，并将工程、窗体保存。
参考程序如下：
Dim c(1 To 3) As Integer
Private Sub Form_Load()
For i = 1 To 3
c(i) = 0
Next i
End Sub
Private Sub Image1_Click()
c(1) = c(1) + 1
Label1.Caption = Str(c(1))
Option1.Value = True
End Sub
Private Sub Image2_Click()
c(2) = c(2) + 1
Label2.Caption = Str(c(2))
Option2.Value = True
End Sub
Private Sub Image3_Click()
c(3) = c(3) + 1
Label3.Caption = Str(c(3))
Option3.Value = True
End Sub
第4套综合练习题(一)
在考生文件夹中，完成以下要求：
1.启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“spks”，并将该工程中的窗体文件Sjt.frm的窗体名称改为“vbbc”，窗体的标题为“移动演示”。
2.在窗体上添加以下控件：标签Label1，标题为“欢迎参加安徽省水平考试”；命令按钮Command1、Command2，标题分别为“移动”、“暂停”，Command2的Enabled值为False；计时器Timer1，Enabled值为False,Interval值为100（以上操作在属性窗口完成）。
3.编写代码实现：在窗体的Load事件中，将Label1前景色设置为红色；单击“移动”按钮，激活Timer1，并使“移动”按钮不可用，“暂停”按钮可用；在Timer1事件中实现标签文本从右向左移动；单击“暂停”按钮，计时器停止工作，“移动”按钮可用，“暂停”按钮不可用。运行效果如下图所示：
4.调试、运行程序，并将工程、窗体保存。
参考代码如下:
Private Sub Command1_Click()
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
End Sub
Private Sub Form_Load()
Label1.ForeColor = vbRed
End Sub
Private Sub Timer1_Timer()
If Label1.Left + Label1.Width > 0 Then
Label1.Left = Label1.Left - 100
Else
Label1.Left = vbbc.Width
End If
End Sub
第5套综合练习题(一)
在考生文件夹中，完成以下要求：
1.启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名称改为“Vbbc”,窗体的标题为“VB控件”。
2.在窗体上添加以下控件：标签Label1、Label2，Label1的标题为“隐藏手机号码中间4位”，Label2用于显示运行结果；文本框Text1，PasswordChar值为“*”；命令按钮Command1、Command2，标题分别为“确定”、“取消”（以上操作在属性窗口完成）。
3.编写代码实现：在Text1中输入11位手机号码，单击“确定”按钮，如果手机号码不是11位数字(要求用计算字符长度Len函数判断)，用MsgBox显示“请重新输入手机号码”的提示信息，并将文本框清空，光标仍置于文本框中；如果号码输入正确，用Label2显示手机号码，且隐藏手机号码从第4位开始的4位数字(要求使用Left函数和Right函数)；单击“取消”按钮，结束程序运行。运行效果如下图所示。
4.调试、运行程序，并将工程、窗体保存。
参考代码如下:
Private Sub Command1_Click()
If Len(Trim(Text1.Text)) <> 11 Then '手机号码不是11位
Text1.Text = ""
Text1.SetFocus
MsgBox "请重新输入手机号码"
Else
Label2.Caption = Left(Text1.Text, 3) + "-****-" + Right(Text1.Text, 4)
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Text1.Text = ""
End Sub
第6套综合练习题(一)
在考生文件夹中，完成以下要求：
1.启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名称改为“Vbbc”，窗体的标题为“汽车速度控制”。
2.在窗体上添加以下控件：标签Label1、Label2，标题分别为“减速”、“加速”；命令按钮Command1，标题为“停车”；计时器Timer1，Interval值为100；水平滚动条HScroll1，Max值为50，Min值为1，LargeChange值为10；图像框Image1，通过属性窗口加载考生文件夹下CARS.ICO文件（以上操作在属性窗口完成）。
3.编写代码实现：汽车图像随着时间变化，从右向左运动，可通过水平滚动条控制汽车运动速度；单击“停车”按钮，计时器停止工作，汽车停止运动，Command1的标题改为“开车”，再次单击命令按钮，激活计时器，标题改为“停车”。运行效果如下图所示：
4.调试、运行程序，并将工程、窗体保存。
参考代码如下:
Private Sub Command1_Click()
If Command1.Caption = "停车" Then
Timer1.Enabled = False
Command1.Caption = "开车"
Else
Timer1.Enabled = True
Command1.Caption = "停车"
End If
End Sub
Private Sub Timer1_Timer()
If Image1.Left + Image1.Width > 0 Then
Image1.Left = Image1.Left - HScroll1.Value
Else
Image1.Left = vbbc.Width
End If
End Sub
第7套综合练习题(一)
在考生文件夹中，完成以下要求：
1.启动工程文件sjt.vbp，将该工程文件的工程名称改为“spks”,窗体文件sjt.frm的窗体名称改为“vbbc”，窗体的标题为“交通方式”。
2.在窗体上添加以下控件：标签Label1，标题为“请选择出行方式：”；命令按钮Command1，标题为“确定”；单选按钮Option1、Option2，标题分别为“共享单车”、“出租车”；文本框Text1；图像框Image1、Image2，分别加载考生文件夹下BICYCLE.ico、CARS.ico文件。（以上操作要求在属性窗口中完成）
3.编写代码实现：单击“确定”按钮，若Option1被选中，Text1中显示：“感谢您选择绿色出行！”；若Option2被选中，Text1中则显示：“您将选择出租车出行！”。运行效果如下图所示：
4.调试、运行程序，并将工程、窗体保存。
参考程序如下：
Private Sub Command1_Click()
If Option1.Value = True Then
Text1.Text = "感谢您选择绿色出行！"
Else
Text1.Text = "您将选择出租车出行！"
End If
End Sub
第8套综合练习题(一)
在考生文件夹中，完成以下要求：
1.启动工程文件sjt.vbp，将该工程文件的工程名称改为“spks”,窗体文件sjt.frm的窗体名称改为“vbbc”，窗体的标题为“投票”。
2.在窗体上添加以下控件：标签Label1，标题为“请给你喜爱的网友投票”，AutoSize值为True；单选按钮Option1、Option2、Option3，标题分别为“阿呆”、“阿狸”、“猫朵朵”；图像框Image1、Image2、Image3，Stretch值均为True，分别加载考生文件夹下图片文件阿呆.gif、阿狸.gif、猫朵朵.gif；图像框Image4，Stretch值为True；命令按钮Command1，标题为“投票”；计时器Timer1，Enabled值为False，Interval值为300。（以上操作在属性窗口中完成）
3.编写代码实现：选择单选按钮，单击“投票”，在Image4中显示相应图片并闪烁，要求使用LoadPicture函数加载图片。运行效果如下图所示：
4.调试、运行程序，并将工程、窗体保存。
参考代码如下：
Private Sub Command1_Click()
Timer1.Enabled = True
If Option1.Value = True Then Image4.Picture = LoadPicture(App.Path + "\阿呆.gif")
If Option2.Value = True Then Image4.Picture = LoadPicture(App.Path + "\阿狸.gif")
If Option3.Value = True Then Image4.Picture = LoadPicture(App.Path + "\猫朵朵.gif")
End Sub
Private Sub Timer1_Timer()
Image4.Visible = Not Image4.Visible
End Sub
第9套综合练习题(一)
在考生文件夹中，完成以下要求：
1.启动工程文件sjt.vbp，将该工程文件的工程名称改为“spks”，并将该工程中的窗体文件sjt.frm的窗体名称改为“vbbc”，窗体的标题为“通信方式”。
2.在窗体上添加以下控件：标签Label1，标题为“你选择的通信方式”；文本框Text1；框架Frame1，标题为“选项”；复选框Check1、Check2，标题分别为“电话”、“邮件”；图像框Image1、Image2，分别加载考生文件夹下的两个图标。（以上操作在属性窗口中完成）
3.编写代码实现：编写窗体的Load事件，在Text1中显示Check1的内容；分别编写Check1和Check2的Click事件，将选中的复选框的标题显示在Text1中。运行效果如下图所示：
4.调试、运行程序，并将工程、窗体保存。
参考程序如下：
Dim s1 As String, s2 As String
Private Sub Check1_Click()
If Check1.Value = 1 Then
s1 = Check1.Caption
Else
s1 = " "
End If
Text1.Text = s1 + " " + s2
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
s2 = Check2.Caption
Else
s2 = " "
End If
Text1.Text = s1 + " " + s2
End Sub
Private Sub Form_Load()
s1 = Check1.Caption
Text1.Text = s1
End Sub
第10套综合练习题(一)
在考生文件夹中，完成以下要求：
1.启动工程文件sjt.vbp，将该工程文件的工程名称改为“spks”，并将该工程中的窗体文件sjt.frm的窗体名称改为“vbbc”，窗体的标题为“卡通人物欣赏”。
2.在窗体上添加以下控件：命令按钮Command1、Command2，标题分别为“开始”、“停止”，Command2的Enabled值为False；计时器Timer1，Interval值为1000，Enabled值为False；图像框控件Image1。（以上操作在属性窗口中完成）
3.编写代码实现：单击“开始”按钮，Timer1的Enabled值为True，同时“开始”按钮不可用，“停止”按钮可用，使五张图片循环显示，要求使用LoadPicture函数分别加载考生文件下五张图片；单击“停止”按钮，Timer1不可用，同时“开始”按钮可用，“停止”按钮不可用。运行效果如下图所示：
4.调试、运行程序，并将工程、窗体保存。
参考程序如下：
Dim i As Integer, s As String
Private Sub Command1_Click()
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Command1.Enabled = True
Command2.Enabled = False
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
i = 0
End Sub
Private Sub Timer1_Timer()
i = i + 1
s = ""
s = "\cartoon00" + Trim(Str(i)) + ".jpg"
Image1.Picture = LoadPicture(App.Path + s)
If i = 5 Then i = 0
End Sub
