原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
2011年上VB上机模拟题
2011年上VB上机模拟题
第1套模拟
基本操作题参考答案：
Private Sub Label1_Click()
Label1.FontSize = Label1.FontSize + 1
If Label1.FontSize 20 Then Label1.FontSize = 10
End Sub
Private Sub Option1_Click()
Label1.Caption = Text1.Text 先生，您好！
Me.Caption = Text1.Text 先生，您好！
End Sub
Private Sub Option2_Click()
Label1.Caption = Text1.Text 女士，您好！
Me.Caption = Text1.Text 女士，您好！
End Sub
简单应用题参考答案：
题目要求把矩阵主对角线和次对角线上的元素赋值为1，其余元素为零。
主对角线上元素的行下标等于列下标；次对角线上元素的行下标与列下标之和等于6
参考程序如下：
Dim a(5, 5) As Integer, I As Integer, J As Integer
Private Sub C1_Click()
For I = 1 To 5
For J = 1 To 5
a(I, J) = 0
若两个下标相等或两下标之和等于6，则该元素赋值为1
If I = J Or I + J = 6 Then a(I, J) = 1
Print a(I, J); ;
Next J
Print
Next I
End Sub
Private Sub C2_Click()
Call putdata(kssj.dat, a)
End Sub
putdata过程的作用是打开指定的文件，进行写操作。
该过程有2个参数，一个是欲打开的文件名，一个是要保存的变量名。这里按题目要求，指定的文件名是kssj.dat，变量是数组名a，为了保证数组a能够在两个过程中均能使用，把a定义为模块级变量。
综合应用题参考答案：
操作步骤如下：
1. 打开考生文件夹中的工程Menu1.Vbp。
2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。
3.在“标题”栏中输入菜单项的标题“页面设置(S)”，在“名称”栏中输入菜单项的名称“页面设置”。
4. 单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“纸张大小”；使用类似的操作，输入如下所示的菜单：
页面设置(S) 数据处理
纸张大小 计算
──────
退出 Ctrl+X
5. 说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6. 单击“工程”菜单的“添加文件”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。
该模块的功能是：用随机函数模拟掷骰子，统计掷50次骰子出现各点的次数。填空的参考答案如下：
*****question*****
n = Int(Rnd * 6 + 1)
*****question*****
a(n) = a(n) + 1
7. 添加如下所示的菜单事件过程代码：
Private Sub 退出_Click()
End
End Sub
Private Sub 计算_Click()
calculate
End Sub
8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：Menu1.exe。
第2套模拟
基本操作题参考答案：
Private Sub Command1_Click()
Text2.Text = Text2.Text Combo1.Text ： Text1.Text Chr(13) Chr(10)
End Sub
Private Sub Form_Load()
Combo1.AddItem 学生
Combo1.AddItem 教师
Combo1.AddItem 医生
Combo1.ListIndex = 0
End Sub
简单应用题参考答案：
Dim N As Integer, S As Single, T As Single
Private Sub Command1_Click()
S = 0: N = 1
文档评论（0）