(1)在考生目录下有一个工程文件sjt3.vbp,窗体文件中已给出所有控件和部分程序,如图3.119所示。要求: ①利用属性窗口设置适当的属性,使Text1、Text2中数据右对齐; ②请编写适当的程序完成以下功能:在Text1中输入40(

admin2018-05-08  30

问题 (1)在考生目录下有一个工程文件sjt3.vbp,窗体文件中已给出所有控件和部分程序,如图3.119所示。要求:
    ①利用属性窗口设置适当的属性,使Text1、Text2中数据右对齐;
    ②请编写适当的程序完成以下功能:在Text1中输入40(度数),选择一个单选按钮,单击“计算”按钮,则根据所选择的单选按钮,计算出相应的正弦、余弦值(保留3位小数,第4位截去,π取3.14159),并显示在Text2中。
    注意:考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须进行一种计算,在Text1中输入的必须是40,必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后程序按原文件名存盘。
    (2)在考生文件夹下有一个工程文件sjt4.vbp,窗体上已经给出所有控件。程序运行时,单击“开始”按钮,则汽车图标向右运动;单击“停止”按钮则汽车停止运动;移动滚动条上的滚动框,可以改变汽车的运动速度(滚动框向右移动,速度减慢)。如图3.120所示。

    要求如下:
    去掉程序中的注释符,把程序中的“?”改为正确的内容。
    提示:窗体上有一个计时器,计时器的事件过程每执行一次,汽车向右移动10,程序通过改变计时器控件的Interval属性来改变汽车的运动速度。
    注意:不得修改控件的属性。最后按原文件名存盘。

选项

答案(1)步骤1:打开考生文件夹中的本题工程文件sjt3.vbp,程序界面如图44所示。 [*] 步骤2:依次选中窗体中的两个文本框,将其Alignment属性值设置为1-Right Justify。 步骤3:双击窗体中的“计算”命令按钮,在打开的代码编辑窗口中编写其单击事件过程。参考代码: Private Sub Command1_Click() If Optionl.Item(0)=True Then Text2.Text = Format(Sin(Val(Text1.Text) * 3.14159 /180), "0.000") End If If Optionl.Item(1)=True Then Text2.Text=Format(Cos(Val( Text1.Text)*3.14159/180),"0.000") End If End Sub 步骤4:按键运行程序,在左侧文本框中输入“40”,选择不同选项,单击“计算”按钮,结果图4.5所示。 [*] 步骤5:单击窗体右上角的关闭按钮以结束程序。 步骤6:按要求将文件保存至考生文件夹中。 (2)步骤1:打开考生文件夹中的本题工程文件sjt5.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: Timerl.Enabled=True Timerl.Interval=HScroll1.Value Picture1.Left=Picture1.Left+10 步骤2:按要求将文件保存至考生文件夹中。

解析 (1)本题可通过利用If…Else…语句来判断第一个单选按钮是否被选中,若是则进行正弦运算,否则进行余弦运算。
    (2)本题要求在单击“开始”按钮时,汽车向右运动,其实质是在“开始”按钮的单击事件过程中启动计时器,故第一个?处应改为True。要通过移动滚动条上的滚动框来改变汽车的运动速度,需在滚动条的Change事件过程中,将滚动条当前Value属性值赋予计时器的Interval属性,第二个?处应改为Timerl。汽车向右移动是在计时器的Timer事件过程中,通过不断增加图片框的Left属性值来实现的,故第三个?处应改为Picture1.Left。
转载请注明原文地址:https://jikaoti.com/ti/63y0FFFM
0

最新回复(0)