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

admin2015-06-30  27

问题   (1)在考生目录下有一个工程文件sjt3.vbp,窗体文件中已给出所有控件和部分程序,如图所示。

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

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

选项

答案(1)【操作步骤】 步骤1:打开本题工程文件,并设置控件的属性。程序中用到的控件及属性见表3.158。 [*] 步骤2:分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() ’需要考生编写的内容 End Sub Private Sub Form_Unload(Cancel As Integer) mysub End Sub 程序结束 参考答案 Private Sub Command1_Click() If Option1.Item(0) = True Then Text2.Text = Format(Sin(Val(Text1.Text) * 3.14159 / 180), "0.000") End If If Option1.Item(1) = True Then Text2.Text = Format(Cos(Val(Text1.Text) * 3.14159 / 180), "0.000") End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件 步骤2:分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub HScroll1_Change() Form1.Timer1.Interval = HScroll1.Value End Sub Private Sub Timer1_Timer() Picture1.Left = Form1.Picture1.Left + 10 End Sub 代码结束 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

解析
转载请注明原文地址:https://jikaoti.com/ti/Ed60FFFM
0

最新回复(0)