《计算机模拟试卷(综合应用)》由会员分享，可在线阅读，更多相关《计算机模拟试卷(综合应用)（11页珍藏版）》请在金锄头文库上搜索。
1、计算机模拟试卷(综合应用)(1)在考生文件夹中，完成以下要求：1启动工程文件Sjt.Vbp，将该工程文件名称改为“Spks”，并将该工程中的窗体文件Sjt. frm 的窗体名称改为“Vbbc”，窗体的标题为“时钟演示”2请在窗体适当位置添加以下控件：标签Labell，能自动调整大小，背景色为黑色，前景色为 红色，字的大小为“二号”;计时器Timerl,其Interval属性值为1000，Enabled属性值为False； 两个命令按钮Command】、Command2，标题分别为“开始”、“停止”。运行界面如下图所示：3按以下要求编写代码：单击“开始”按钮，则每隔1秒在标签Labell中显示系
2、统的当前时间; 单击“停止”按钮，则停止标签时间的更新。4请先调试、运行，然后将工程、窗体保存。参考答案与解析：Private Sub Command1_Click()Timerl.Enabled二TrueEnd subPrivate Sub Command2_Click()Timerl.Enabled二FalseEnd subPrivate Sub Timer1_Timer()Labell.Caption二TimeEnd sub(2)在考生文件夹中建立一个名称为“Vbcd”的工程文件Menul.Vbp,并在工程中建立一个名称为 “Menul”的菜单窗体文件Menul.frm，要求在其中：1建
3、立菜单，格式与内容如下：文件(F)数据处理打开计算 退出 Cr tl+X其中，括号内的字符为热键；分隔条的名称为FGT,其它菜单与子菜单的名称与标题相同，但不含热键； Crtl+X：设置为快捷键。2. 将考生文件夹下的窗体文件sjt frm添加进本工程。3. 除“计算”菜单项的Click ()事件调用sj tfrm窗体，“退出”菜单项的Click ()事件 执行End语句，其它菜单和子菜单不执行任何操作。4. 调试运行并生成可执行程序：Menu1.exe。参考答案与解析：操作步骤如下：进入VB变成环境,建立一新工程，将该工程在考生文件夹中另存为Menul.vbp,工程名改为Vbcd， 窗体名改
4、为Menul,窗体文件名改为Menu1.frm。请注意：一定要把新建的工程和窗体文件保存在考生文件夹内！模拟时考生文件夹在C盘；考 试时，考生文件夹在K盘。文件夹名是考生准考证号。单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。在“标题”栏中输入菜单项的标题“文件(&F)”，在“名称”栏中输入菜单项的名称“文件”。 单击“下一个”按钮，再单击“一”按钮，使用与步骤3相似的方法输入下级菜单项“打开”； 使用类似的操作，输入如下所示的菜单：文件(F)数据处理打开计算 退出Ct rl+X说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ct rl+X”。单击“工程”菜单的“添加窗体”
5、命令，将考生文件夹下的“sjtfrm”文件添加到本工程。 添加如下所示的菜单事件过程代码：Private Sub 退出 Click()EndEnd SubPrivate Sub 计算 Click()Load vbbcVbbc.showEnd Sub(3)在考生文件夹中，完成以下要求：1. 启动工程文件Sjt.Vbp,讲该工程文件的工程名称改为“Spks” ,并将该工程的窗体文件 Sjt frm的窗体名称改为“Vbbc”，窗体的标题为“VB控件”。2. 请在窗体适当位置添加以下控件：三个文本框Textl、Text2、Text3;个组合框Combol; 一个命令按钮 Commandl,标题为“=”
6、。运行效果如下图：参考答案与解析：参考代码如下：Priva te Sub Form_Load()窗体装载过程Combol.AddItem” + ” 在组合框中添加” +”、” _” 号Combol.AddItem” _”End SubPrivate Sub Command1_Click()Dim S As Single, A As Single, B As Single变量 s 用于保存计算结果A = Val(Tex t1 .Tex t)B = Val(Tex t2.Tex t)Select Case Combol.TextCase” +”S = A + BCase”S = A - BEnd
7、SelectText3.Text = S 将计算结果显示在文本框text3中End Sub(4)在考生文件夹中建立一个名称为“Vbcd”的工程文件Menul.Vbp,并在工程中建立一个名称为 “Menul”的菜单窗体文件Menul.frm，要求在其中：1. 建立菜单，格式与内容如下：页面设置(S)数据处理M纸张大小计算M页边距退出其中，括号内的字符为热键；各菜单，子菜单的名称与标题相同，但不含热键；M：复选标记。2. 将考生文件夹下的窗体文件sjt.frm添加进本工程。3. 除“计算”菜单项的Click ()事件调用sjt.frm窗体，“退出”菜单项的Click ()事件执行 End语句，其他
8、菜单和子菜单不执行任何操作。4. 调试运行并生成可执行程序：Menul.exe。操作步骤如下：1进入VB编程环境，建立一新工程，将该工程在考生文件夹中另存为Menul.Vbp,工程名改为Vbcd， 窗体名改为Menul，窗体文件名改为Menul.frm。请注意：一定要把新建的工程文件和窗体文件保存在考生文件夹内！模拟时考生文件夹在c盘！ 考试时，考生文件夹在k盘。文件夹名是考生准考证号。2单击“工具”菜单的“菜单编辑器”命令，打开“菜单剪辑器”窗口。3在“标题”栏中输入菜单项的标题“页面设置(&S) ”，在“名称”栏中输入菜单项的名称“页 面设置”。4.单击“下一个”按钮，再单击“一”按钮，使
9、用与步骤3相似的方法输入下级菜单项“纸张大小”， 并在“复选”前打勾；使用类似的操作，输入如下所示的菜单：页面设置(S)数据处理M纸张大小计算M页边距退出5说明：在“纸张大小”、“页边距”单项的“复选”前打勾。6单击“工程”菜单的“添加窗口”命令，将考生文件夹下的“ sj t.frm ”文件添加到本工程。7. 添加如下所示的菜单事件过程代码：Priva te Sub 退出 _Click()EndEnd SubPriva te Sub 计算 _ Click()Load vbbcVbbc.showEnd Sub8. 调试运行并保存工程，然后单击“文件”菜单的“生成Menul.exe ”命令，生成可
10、执行程序:Menul.exe o(5)在考生文件中，完成一下要求：1. 启动工程文件sjt.Vbp，将该文件的工程名称改为“spks”，并将该工程中的窗体文件Sjt.frm 的窗体名称改为“vbbc”，窗体的标题为“vb控件”。2. 在窗体上添加以下控件：一个标签Labell，标题为“请输入一个自然数”，自动调整大小；一 个文本框Textl； 个命令按钮Commandl，标题为“添加”；一个列表框Listl。3编写代码实现：程序运行时，在文本框中输入一个自然数，单机“添加”按钮时，首先清除 列表框中的内容，然后在列表框中列出小于等于该自然数并且大于0的所有偶数。如图所示：4请先调试，运行，然后
11、将工程，窗体保存。参考代码如下：Private Sub Command1-Click()Dim x As Interger, I As IntergerListl.Clear x=Val(Text1.Text) For i = 1 To xIf I Mod 2 = 0 ThenListl.AddItem IEnd ifNextEnd Sub抵VB控件诸输入一个目然数Re-$6810121416退出Ct rl+x其中，括号内的字符为热键；分隔条的名称为FGT,其它菜单与子菜单的名称与标题相同，但不含热键； Ct rl+X:设置为快捷键。将考生文件夹下的窗体文件sjt.frm添加进本工程除“计算”
12、菜单项的click()事件调用sjt. frm窗体，“退出”菜单项的click事件执行end语 句，其他菜单和子菜单不执行任何操作。调试运行并生成可执行程序：menu1.exe操作步骤如下1进入VB编程环境，建立一个新工程，将该工程在考生文件夹中另存为menu1.vbp，工程名改 为vbcd，窗体名改为menu1，窗体文件改为menu1.frm.2单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。3在标题栏中输入菜单项的标题“插入(&c)”，在“名称”栏中输入菜单项的名称“插入”4单击“下一个”按钮，再单击“一”按钮，使用与步骤3相似的方法输入下级菜单“对象”， 使用类似的操作。输
13、入如下所示的菜单：插入(c)数据处理对象计算退出 Ct rl+X5说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”6单击“工程”菜单的“添加窗体”命令，将考生文件夹下的“sjt.frm”文件添加到本工程 7添加如下所示的菜单事件过程代码Private Sub 退出_Click()EndEnd SubPrivate Sub 计算_Click( )Load vbbcVbbc.showEnd sub在考生文件夹中，完成以下要求：1启动工程文件sjt.VBP，将该工程文件的名称改为“spks”，窗体的标题为“VB控件”。2在窗体上添加以下控件：一个标签Labell，标题为“请输入一个
14、自然数”，自动调整大小； 一个文本框Textl:； 个命令按钮Commandl，标题为“添加”；一个列表框Listl。3编写代码实现：程序运行时，在文本框中输入一个自然数，单击“添加”按钮时，首先清除 列表框中的内容，然后在列表框中列出小于等于该自然数并且大于0的所有偶数。运行效果如 下图所示：4请先调试、运行，然后将工程、窗体保存。X飢VB控件go答案：X二Val(Text1 .Tex t)For i =1 to xIf i mod 2 = 0 thenList1 .AddItem iEnd IfNex tEnd Sub退出ct rl+x其中，括号内的字符为热键；分隔条的名称为FGT,其他菜
15、单和子菜单的名称与标题相同，但不含热键；Ct rl+x:设置为快捷键2. 将考生文件夹下的窗体文件sjt frm添加进本工程。3. 除“计算”菜单项的click ()事件调用sjtfrm窗体，“退出”菜单项的click ()事件执 行End语句，其他菜单和子菜单不执行任何操作。4. 调试运行并生成可执行程序：menu1.exe。答案：操作步骤如下：1进入VB编程环境，建立一新工程，将该工程在考生文件夹中另存为Menu1.Vbp,工程名改为 Vbcd，窗体名称改为Menu1,窗体文件名改为Menu1.frm。请注意：一定要把新建的工程名称和窗体文件保存在考生文件夹内！模拟时考生文件夹在c盘; 考试时，考生文件夹在K盘。文件夹名是考生准考证号。2单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。3在“标题”栏中输入菜单项的标题“插入&C)”，在“名称”栏中输入菜单项的名称“插入。 4单击“下一个”
