第二部分 5 VB程序设计-中考信息技术考试训练题库

最新中考信息技术考试题库 五、VB程序设计 示例：vB程序设计(15分) 认真查看“更改对象属性”程序，并完成以下操作： 1.在窗体上方添加Label1，将其字体改为隶书，字号改为小三。 2.在代码1处添加一条语句(请勿改动已有代码)，将窗体的标题改为“对象的属性”。 3.在代码2处添加一条语句(请勿改动已有代码)，使得Label1的内容改为“这是一个标签”。 Private Sub Command Click 代码1 代码2 Text1Text=这是一个文本框 End sub 调试运行该程序，查看结果。 原名原位置保存文件并退出。 【操作提示】 本题侧重于对程序设计中对象属性操作的考查。 1.在工具箱窗口中选择标签框(Label1)控件，在窗体窗口的上方拖动出一个矩形框(或双击标 签框控件)，然后在窗体上把该对象拖动到窗口上方合适的位置，在Label1的属性窗口中单击 Font属性，单击……，打开字体对话框，将字体改为隶书，字号改为小三。 2.在命令按钮上双击(或者右键单击选择查看代码命令，或选择视图菜单→代码窗口)，打开代 码窗口，在代码1处输入：Form1.caption=“对象的属性”。 3.在代码2处输入：Label1.caption=“这是个标签”。 运行调试程序，无误后选择“文件”菜单中的“保存”并退出。 【试题演练】 ●VB-1 认真查看“计算器”程序，并完成以下操作。 1.在代码1处添加一条语句（请勿改动已有代码），使得L1显示为”/”。 2.在代码2处添加一条语句（请勿改动已有代码），使得T1/τ2的值显示在T3中。 3.在代码3处添加一条语句（请勿改动已有代码），用以结束过程。 Private Sub Commandl Click() L1.Caption—”+” T3.Text—Val(T1.Text)+Val(T2.Text) End Sub Private Sub Command2Click() L1.Caption=”-” T3.Text-Val(T1.Text)-Val(T2.Text) End Sub Private Sub Command3Click() -80- 最新中考信息技术考试题库 L1.Caption ="* T3.Text Val(T1.Text)*Val(T2.Text) End Sub Private Sub Command4 Click() ’代码1 ’代码2 ’代码3 调试运行该程序，查看结果，原名原位置保存文件并退出。 ●VB-2 认真查看“VB函数”程序，并完成以下操作。 1.分别在Label1、Label22的后面添加Text1、Text2,并把它们的Text属性设为空。 2.在代码1处添加一条语句（请勿改动已有代码），求出-5的绝对值并显示在Text1中。 3.在代码2处添加一条语句（请勿改动己有代码），求出3.5取整后的值并显示在Text2中。 Private Sub Command1_Click() 代码1 代码2 Text3.Text Sqr(16) End Sub 调试运行该程序，查看结果，原名原位置保存文件并退出。 ●VB-3 认真查看“抽取幸运同学”程序，并完成以下操作。 1.在Text1前面添加Label1,将其Caption属性改为“幸运同学的编号为：” 2.在代码1处添加一条语句（请勿改动己有代码），用键盘输入函数提示“请输入你们班级 总人数”信息，并将它的值存入到变量a中。 3.在代码2处添加一条语句（请勿改动已有代码），将得到的幸运号码b显示在Text1中。 Dim a,b As Integer Private Sub Form_Load() 代码1 End Sub Private Sub Command1 Click() b=Int(Rnd a)+1 代码2 End Sub 调试运行该程序，查看结果，原名原位置保存文件并退出。 ●VB-4 认真查看“反向输出三位数”程序，并完成以下操作： 1.在窗体上创建一个标签框Label1,将Label1的Caption属性改成空，Font属性改成楷体。 2.在“代码1”处填入合适代码（请勿改动已有代码），将变量x定义为整型数据。 3.在“代码2”处补全代码（请勿改动已有代码），计算出百位上的数字A。 Dim x 代码1 Private Sub Command1_Click() -81 最新中考信息技术考试题库 Dim A,B,C As Integer A= '代码2 B=lnt(x-A*100)/10) C=×-A*100-B*10 Label1.Caption =C&B&A End Sub Private Sub Form_Load() x=InputBox("请输入一个三位数：") End Su