- 1、本文档共5页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
基础题(1)【操作步骤】
步骤1:新建一个Form1窗体, 在窗体的空白处右击,在弹出的快捷菜单中选择菜单编辑器命令,弹出菜单编辑器。
步骤2:在菜单编辑器中设置菜单的标题、名称、层次和属性,如表3.269所示。
步骤3:单击确定按钮,菜单设置完成。
步骤4:将文件保存至考生文件夹下,且窗体文件命名为sjt1.frm,工程文件命名为sjt1.vbp。
基础题(2)【操作步骤】
步骤1:新建一个Form1窗体,将该窗体的Caption设置为椭圆练习。
步骤2:在窗体中添加一个Shape控件,并在属性面板中设置Shape为2,Height为800,Width为1200;设置BorderColor为蓝色(H00C00000),BorderStyle为1,BorderWidth为5;设置FillColor为黄色(H0000FFFF),FillStyle为0。
步骤3:在窗体中添加两个命令按钮控件Command1和Command2,并将这两个按钮控件的Caption分别设置为横向和纵向,如下图所示。
步骤4,然后打开代码编辑器窗口,在代码编辑器窗口中编写代码如下。
Private Sub Command1_Click()
Shape1.Width = Shape1.Width + 100
或 Shape1.Width = 100 + Shape1.Width
End Sub
Private Sub Command2_Click()
Shape1.Height = Shape1.Height + 100
或 Shape1.Height = 100 + Shape1.Height
End Sub
步骤5:代码编写完成后,按照题目要求调试并运行程序,并将文件保存至考生文件夹下,且设置窗体文件名为sjt2.frm,工程文件名为sjt2.vbp。
简单题`(1)【操作步骤】
步骤1:打开本题工程文件,在窗体中添加一个文本框Text1,并设置Text属性为空。
步骤2:打开代码编辑窗口,去掉程序中的注释符 ,将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
Private Sub Command1_Click()
Dim n As Integer, Factor As Integer
Dim First As Boolean
Do
n = InputBox(请输入一个大于2的整数)
If n = 2 Then MsgBox (请重新输入)
Loop Until n 2
Factor = 2
First = True
Do
Do While n Mod Factor = 0
If First Then
Text1.Text = Str(n) + Space(1) + = + Str(Factor)
First = False
Else
Text1.Text = Text1.Text + Space(1) + * + Str(Factor)
End If
n = n / Factor
Loop
Factor = Factor + 1
Loop Until Factor n
End Sub
Private Sub Command2_Click()
End
End Sub
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
简单题`(2)【操作步骤】
步骤1:打开本题工程文件,选中Cmd1命令按钮,在属性面板中设置Caption属性为产生可变正方形图案,并设置Left为300。
步骤2:打开代码编辑窗口,去掉程序中的注释符 ,将问号改为正确的内容。
参考答案
Option Base 1
Private Sub Cmd1_Click()
Dim a()
n = InputBox(请输入控制正方形图案层数的可变数)
ReDim a(n, n)
For k = 1 To (n + 1) \ 2
For i = k To n - k + 1
For j = k To n - k + 1
a(i, j) = k
Next j
Next i
Next k
For i = 1 To n
For j = 1 To n
Print Tab(j * 3); a(i, j);
Next j
Print
您可能关注的文档
最近下载
- 2024年高空作业考试题库附答案5套(完整版).DOC
- 印刷类原辅料进料检验标准.pdf
- 部编人教版四年级上册《道德与法治》全册教学反思.pdf VIP
- 江苏省南通市2023-2024学年高一上学期语文期中考试试卷(含答案).pdf VIP
- 国家开放大学《中国近现代史纲要》社会实践报告.docx VIP
- 领读经典-现代文学(1)(山东大学)中国大学MOOC慕课 章节测验期末考试答案.docx
- 《幼儿挑食、偏食行为的原因分析及对策》开题报告(含提纲)5800字.doc
- 2022年贵州省高职(专科)分类招生中职生文化综合考试试卷(语数英、含答案).pdf
- 小学语文优秀教学案例.docx VIP
- 冬季血压早达标远离心脑血管疾病-高血压慢性病培训讲座课件PPT.pptx
文档评论(0)