第8套VB上机题.docVIP

第8套VB上机题 Private Sub Command1_Click() Static I As Integer 定义静态变量 I = I + 1 单击命令按钮一次，变量值增加一次 Command1.Caption = I 命令按钮标题变为已单击的次数 MsgBox (您单击了 I 次) 提示单击的次数 If I = 10 Then 如果第10次单击时 Command1.Enabled = False 命令按钮无效 End If End Sub 参考代码如下： Dim a As Single, b As Single, c As Single, x1 As Single, x2 As Single Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) delt = b ^ 2 - 4 * a * c If delt 0 Then MsgBox 方程无实根 Else x1 = (-b + Sqr(delt)) / (2 * a) x2 = (-b - Sqr(delt)) / (2 * a) Text4.Text = x1 Text5.Text = x2 End If End Sub Private Sub Command2_Click() putdata kssj.dat, Text4.Text, Text5.Text End Sub 操作步骤如下： 1. 打开考生文件夹中的工程Menu1.Vbp。 2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。 3.在“标题”栏中输入菜单项的标题“文件(F)”，在“名称”栏中输入菜单项的名称“文件”。 4.单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“打开”；使用类似的操作，输入如下所示的菜单： 文件(F) 数据处理 打开 计算 ────── 退出 Ctrl+X 5. 说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。 6. 单击“工程”菜单的“添加模块”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。 该模块中的calculate过程的功能是：在窗体上 绘制 sin函数曲线。填空的参考答案如下： *****question***** menu1.Scale (-8, 2)-(8, -2) *****question***** y = Sin(x) 7. 添加如下所示的菜单事件过程代码： Private Sub 退出_Click() End End Sub Private Sub 计算_Click() calculate End Sub 8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：Menu1.exe。