浙江省余姚市第四职业技术学校2022年高一上VB程序设计模拟五

浙江省余姚市第四职业技术学校2022年VB程序设计模拟5 考试说明： 1、在答题的过程中请注意保存 2、提交前请校对所有文件是否存在 3、答题前先把下发的试题文件夹改名为学号+本人姓名，确定考生文件夹 试题一(30分) 设计界面如图1所示一个留言板，并可设置字体名称，字体大小及字体效果，窗体加载 的时候，文本框为空，当文本框不为空时，framel、frame2、frame3启用，“清除”按钮可 用，单击“清除”按钮，清空文本框的内容，单击“退出”按钮，程序结束。（其中单选按 钮为控件数组，其他控件都非数组) 享性大小、 C16 20 25 字辣效果 厂加 厂下线厂斜体 字件名称 C描体 C黑体 1.(2分)创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.bp~ 为文件名保存到试题一的文件夹下，并生成可执行文件test1.exe。 2.(14分)参照图1完成界面设计：按表添加相关对象并设置相关的属性：（每个属性设置1 分) 表1 对象名 属性 属性值 对象名 属性 属性值 Forml caption 留言板 Textl text 空 Framel caption 字体大小 Framel Enabled false Frame2 caption 字体效果 Frame2 Enabled False Frame3 caption 字体名称 Frame3 enabled False Option1(0) caption 15 Command1 caption 清除 Option1(1) caption 20 Command2 caption 结束 Option1(2) caption 25 Commandl enabled false 3.(1)(2分)对option1控件数组添加代码，要求单击相应的字号后，文本框里的字体大小 发生相应变化。（程序中不得使用任何变量，用动态属性语句格式来编写） (2)(2分)对opio2控件数组添加代码，要求单击相应的字体后，文本框里的字体发生 相应变化。（程序中不得使用任何变量，用动态属性语句格式来编写） (3)(6分)对checkl、check.2、check3添加代码，要求单击相应的字体效果后，文本框里 的字体效果发生相应变化。 (4)(4分)当文本框不为空时，framel、frame2、frame3开始启用，commandl开始能 用。（要求用f块语句编写代码） _________ 试题二（25分） 求Sn=a+aa+aaa+aaa+…aa…aaa(n个a)，其中a是通过滚动条获得的一个1~9(包括 1，9)中的一个正整数，n是通过滚动条获得的5~10(包括5，10)中的一个数。 例如：当a=2，n=5时，Sn=2+22+222+2222+22222Fomi— 图2 （1）打开test2.vbp设置hscroll1和hscroll2的最大值和最小值(4分)，窗体加载时， 1abel1和1abel2显示滚动条的值，当滚动条hscroll1和Hscroll2的值发生变化 时，相应的值显示在1abel1和1abel2中，a和N的值也发生变化，编写合适的代码 在合适的事件中，。（6分） （2）复制2.txt中的代码到相应的事件中（2分），根据题意对其中的④⊗⊗由o处进行 填空（10分） (3）保存窗体文件test3.frm和工程文件test3.vbp，生成可执行程序“test3.exe”并保存到 “试题三“文件夹下。（2分） 2 代码区： Dim a As Integer,n As Integer Private Sub Form_Load() ④ Label1.Caption ="a="&HScroll1.Value ⑤ Label2.Caption ="n="&HScroll2.Value End Sub Private Sub Command1 Click() Cls CurrentX=1000 CurrentY 1500 temp=①' Fori=1Ton CurrentX=1000 ②' Print temp ③ Nexti CurrentX=1000 Print String(10,"-" CurrentX=1000 Prints End Sub Private Sub HScroll1_Change() Label1.Caption ="a="&HScroll1.Value a HScroll1.Value End Sub Private Sub HScroll2_Change() Label2.Caption ="n="&HScroll2.Value n HScroll2.Value End Sub 3 试题三.(20分) 修改v程序，使其实现如下功