没有合适的资源?快使用搜索试试~ 我知道了~
Vb十套模拟题及答案.pdf
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 17 浏览量
2022-07-14
11:33:43
上传
评论
收藏 41KB PDF 举报
温馨提示
试读
20页
Vb十套模拟题及答案.pdf
资源推荐
资源详情
资源评论
Vb 答案
第一套
1 在名称为 FORM1 的窗体上放置一个名为 TEXT1 的文本框控件和一个名为 TIMER1 的计时器控件,
请设置计时器的适当属性并且编写适当的事件过程,使得程序运行后,文本框中显示的是当前的时间,而
且每一秒文本框中所显示的时间都会随时间的变化而改变。 (如示例所示) ***** 注意:程序中不得使用任
何变量,只能写一条语句;保存时必须存放在考生文件夹下, 窗体文件名为 SJT1.FRM ,工程文件名为
SJT1.VBP。
Private Sub Timer1_Timer()
Text1.Text = Time
End Sub
2 在窗体 FORM1 上画一个组合框,名称为 CBO1, 有“长跑”、“游泳”、“跳远”三个可供选择项。再画
一个命令按钮,名称为 CMD1, 标题为“确定”。编写适当的事件过程,使得程序运行时,选择组合框中的
某项,单击命令按钮后,就会弹出一个消息框,内容为“您选择了 (某项 )”如 [ 示例 ]。
注意:
1)程序中不得使用任何变量。
2)保存时必须存放在考生文件夹下,窗体文件名为 SJT2.FRM, 工程文件名为 SJT2.VBP
Private Sub Cmd1_Click()
MsgBox " 您选择了 " & CBO1.Text
End Sub
3 在考生文件夹中有文件 SJT3.VBP 及其窗体文件 SJT3.FRM,该程序是不完整的, 请在有?号的地方填
入正确内容,然后删除?及所有注释符(即 '号),但不能修改其它部分。存盘时不得改变文件名和文件夹。
本题描述如下:
在窗体上画一个名称为 TEXT1 的文本框,小四号字,再画两个名称分别为 CH1 和 CH2,标题分别为 "C
程序设计 "和"VB 程序设计 "的复选框,小四号字,一个名称为 C1,标题为 " 确定 "的命令按钮。编写适当的
事件过程,要求程序运行后,如果只选中 CH1 ,然后单击 "确定 "命令按钮,则在文本框中显示 " 学习 C 程序
设计 ";如果只选中 CH2,然后单击 "确定 " 命令按钮,则在文本框中显示 " 学习 VB 程序设计 " ;如果同时选中
CH1 和 CH2,然后单击 "确定 "命令按钮,则在文本框中显示 "学习 C 程序设计 VB 程序设计 "。
Private Sub c1_Click()
Text1 = " 学习 " & IIf(Ch1.Value = 1, Ch1.Caption, "") & IIf(Ch2.Value = 1, Ch2.Caption, "")
End Sub
4 在窗体上画三个复选框,名称分别为 CH1 、CH2、CH3, 标题依次为“体育” 、“音乐”、“美术”;一个标
签,名称为 L1,标题为“爱好: ”;还有一个命令按钮,名称为 CMD1, 标题为“显示” 。要求程序运行后,如
果选中某个复选框,则当单击“显示”命令按钮时,按照“示例”显示相应的信息。
在考生文件夹中已有工程文件 SJT4.VBP 以其窗体文件 SJT4.FRM, 该程序是不完整的,请在有?号的
地方填入正确内容,然后删除?以其所有注释符(’ )但不能修改其它部分。存盘时不得改变文件存放路径
和文件名。
Private Sub Cmd1_Click()
Cls
Dim s As String
s = "我的爱好是 "
If Ch1.Value = 1 Then
s = s + Ch1.Caption
End If
If Ch2.Value = 1 Then
s = s + Ch2.Caption
End If
If Ch3.Value = 1 Then
s = s + Ch3.Caption
End If
Print s
End Sub
5 在考生文件夹下已有一个工程文件 SJT5.VBP ,相应的窗体文件为 SJT5.FRM。请在窗体上画一个文本
框,名称为 TEXT1, 并设置适当的属性使得文本框允许输入多行文本, 并具有垂直滚动条; 再画两个命令按
钮,名称分别为 C1、C2,标题分别为“产生 100 个随机数”、“输出最小值” 。该程序的功能是产生 100 个
0~1000 的随机整数,放入一个数组中(数组下界从 1 开始),并且在文本框中显示出来,然后输出其中的
最小值。程序运行后,单击 C1(程序中已有一 READNUMBER 过程可产生 100 个随机数并在文本框中显示
出来,请调用 ),在文本框中显示随机产生的 100 个整数,单击 C2(编写 C2_CLICK() 事件 ),在文本框中输出
其中最小值。(注:“示例”中显示的随机数与实际产生的随机数有可能不一致) 。
要求:
去掉程序中的注释符,把程序中的?改为正确的内容,并编写 C2_CLICK() 事件,使其实现上述功能,
但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
注意:程序的其它部分不得改动,点击窗体上的“关闭”结束程序运行。
Dim a(1 To 100) As Integer
Private Sub C1_Click()
Call readNumber
End Sub
Sub readNumber()
Text1.Text = ""
Randomize
For i = 1 To 100
a(i) = Int(Rnd * 1000)
Text1.Text = Text1.Text & a(i) & " "
Next i
End Sub
Private Sub C2_Click()
Min = a(1)
For i = 1 To 100
If a(i) < Min Then Min = a(i)
Next i
Text1.Text = Min
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Open "[PATH]get5.dat" For Output As #1
C1_Click
Print #1, Text1
C2_Click
Print #1, Text1
Close #1
End Sub
第二套
1 在窗体上画一条直线,名称为 LINE1, 同时,在窗体上拖拉出一个命令按钮,名称为 CMD1, 标题为 " 加粗
"。编写适当的事件过程,使程序运行后,如果单击 CMD1 命令按钮,直线的宽度值为 10。
注意: 1)不得使用任何变量 ,只能写一条语句。
2)保存时必须存放在考生文件夹下,窗体文件名为 SJT1.FRM,工程文件名为 SJT1.VBP 。
Private Sub Cmd1_Click()
Line1.BorderWidth = 10
End Sub
2 在考生文件夹下有一工程文件 SJT2.VBP 在名称为 FORM1 的窗体上有一个名称为 P1 的图片框,图片框
中已放入一图片;请考生再画一个通用对话框控件,名称为 CD1 ,利用属性窗口设置相应属性,即打开对
话框时;标题为“打开文件” ,对话框的类型列表框为“ WORD 文档 |*.DOC ”,初始目录为 "C:" 。再编写适
当的事件过程,使得在运行时,单击 P1 图片框,可以打开上述对话框。运行后的窗体如 [ 示例 ]所示。
注意:
只能写一条语句。
做完后按原名存盘。程序中不得使用任何变量。
Private Sub p1_Click()
Cd1.ShowOpen
End Sub
3 在考生文件夹下已有工程文件 SJT3.VBP 及窗体文件 SJT31.FRM,SJT32.FRM, 打开工程文件后请将
SJT32.FRM 添加进工程并设为启动窗体,将 FORM1 的标题栏设为“第一窗体” FORM2 的标题栏设为“第
二窗体”,在 FORM1 上画一列表框 LIST1 ,在 FORM2 上画一文本框 TEXT1, 和一命令按钮 C1 标题为“添
加到第一窗体” ,当程序运行时 FORM1 随 FORM2 同时启动,当在 FORM2 的 TEXT1 中填写字符串后单击。
“添加到第一窗体”可将 TEXT1 的内容添加到 FORM1 的列表框 LIST1 中,如 [ 示例 ]所示。
该程序是不完整的 ,请在有?号的地方填入正确内容,然后删除?及所有注释符(即 '号),但不能修改其它
部分。存盘时不得改变文件名和文件夹。
Private Sub c1_Click()
Form1.List1.AddItem Text1
End Sub
Private Sub Form_Load()
Form1.Show
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
4 在窗体上画一个文本框,名称为 TEXT1, 内有一个黑体的“华”字。再画一个水平滚动条,名称为 HS1,
在属性窗口中对水平滚动条设置如下的属性:
MAX 80
MIN 10
LARGECHANGE 5
SMALLCHANGE 2
编写 HS1_CHANGE() 的事件过程,使程序运行后,如果移动水平滚动条上的滚动框,则可以扩大或缩
小文本框中的汉字。
注意:
1) 程序中不得有任何变量 ,且事件过程中只能编写一条语句。
2) 保存时必须存放在考生文夹下,窗体文件名为 SJT4.FRM, 工程文件名为 SJT4.VBP
Private Sub HS1_Change()
Text1.FontSize = HS1.Value
End Sub
5 在考生文件夹下有一个工程文件 SJT5.VBP 及其窗体文件 SJT5.FRM, 在窗体上画两个复选框,名称分
别为 CH1、CH2,标题依次为“粗体” 、“斜体”在窗体上再画一标签 LABEL1, 标题为“计算机中心”居中显
示,三号字,运行后如果选择了“粗体”或“斜体”或单击列表框中的某种字体标签中的文字也产生相应
的变化(如:示例) 。
该程序是不完整的 ,请在有?号的地方填入正确内容,然后删除?及所有注释符(即 '号),但不能修改其它
部分。存盘时不得改变文件名和文件夹。
Private Sub ch1_Click()
Label1.FontBold = Ch1.Value
End Sub
Private Sub ch2_Click()
Label1.FontItalic = Ch2.Value
End Sub
Private Sub List1_Click()
Label1.FontName = List1.Text
End Sub
第三套
1 在名称为 FORM1 的窗体上画一个文本框,名称为 TEXT1, 其初始内容为 0,居中,小四号字;再画一
个命令按钮,名称为 COMMAND1, 标题为“开始计数” ;再画一个名称为 TIMER1 的计时器,要求程序开
始运行时不计数,单击“开始计数”按钮后,则使文本框中的内容
每秒加 1,(以上均在属性窗口设定) ;编写 COMMAND1 和 TIMER1 的事件过程完成上述要求(每过程只
写一条语句,不得使用变量) 。
做完后请将窗体文件和工程文件分别以 SJT1.FRM 和 SJT1.VBP 命名存于考生文件夹下。
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Text1.Text = Text1.Text + 1
End Sub
2 在名称为 FORM1 的窗体上建立一个名称为 COMMAND1 ,宽度为 1500,高度为 500,标题为“显示”
的命令按钮,编写适当的事件过程,要求程序运行后,如果单击“显示”命令按钮,则在窗体上画一个以
(1000, 1000)为圆心,半径为 800 的园,单击窗体时该圆被清除。
每一事件过程只写一条语句,不得使用变量。
做完后请将窗体文件和工程文件分别以 SJT2.FRM 和 SJT2.VBP 命名存于考生文件夹下
剩余19页未读,继续阅读
资源评论
xhr131452007
- 粉丝: 7
- 资源: 14万+
下载权益
C知道特权
VIP文章
课程特权
开通VIP
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
最新资源
- 课设毕设基于SSM的校园餐厅管理 LW+PPT+源码可运行.zip
- Python井字棋代码
- 课设毕设基于SSM的书店仓库管理系统2021 LW+PPT+源码可运行.zip
- 课设毕设基于SSM的沙县小吃点餐系统 LW+PPT+源码可运行.zip
- 课设毕设基于SSM的旅游景点线路网站 LW+PPT+源码可运行.zip
- EDA实验计数器CNT9999-DTCNT9999实验源代码
- 课设毕设基于SSM的抗疫医疗用品销售平台 LW+PPT+源码可运行.zip
- 基于Halcon的仿照VisonPro的机器视觉软件.zip
- battery-percentage-detector 使用 Javascript 的电池百分比检测器
- 毕业设计基于Qt+FFmpeg+SDL实现的音视频播放器源码.zip
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功