在Form1上设计满足如下要求的菜单(分类、标题、名称).docVIP

在Form1上设计满足如下要求的菜单(分类、标题、名称).doc

  1. 1、本文档共5页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 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

文档评论(0)

185****7617 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档