2. 计算机
  3. 在考生文件夹下有一个工程文件sjt4．vbp，请在Forml窗体上建立一个名称为Opl的单选按钮数组，含有三个单选按钮，其标题分别为”10!”、”11 !”、”12 !”，Index属性分别为0、1、2；再画一个名称为C1的命令按钮，标题为”计算”；画一个

在考生文件夹下有一个工程文件sjt4．vbp，请在Forml窗体上建立一个名称为Opl的单选按钮数组，含有三个单选按钮，其标题分别为”10!”、”11 !”、”12 !”，Index属性分别为0、1、2；再画一个名称为C1的命令按钮，标题为”计算”；画一个

admin2013-10-18  47
问题 在考生文件夹下有一个工程文件sjt4．vbp，请在Forml窗体上建立一个名称为Opl的单选按钮数组，含有三个单选按钮，其标题分别为”10!”、”11 !”、”12 !”，Index属性分别为0、1、2；再画一个名称为C1的命令按钮，标题为”计算”；画一个名称为Textl的文本框，如图2-79所示。程序的功能是在选定一个单选按钮并单击”计算”按钮后，可以计算出相应的阶乘值，在Textl中显示该阶乘值。请画出上述控件并编写程序。
注意：考生不得修改工程中已经存在的内容，在结束程序运行之前，必须进行一次计算。必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后按原文件名存盘。
选项
答案步骤1：打开考生文件中的本题工程文件sjt4．vbp，如表3-41在窗体中用”复制”和”粘贴”命令画出包含三个元素的单选按钮数组、一个文本框和一个命令按钮并设置属性。 [*] 步骤2：在代码编辑窗口，编写”计算”按钮的单击事件过程。 参考代码： Private Sub C1_Click( ) Dim k As Integer k=0 While Not Opl(k)．Value And k＜3 k=k±1 Wend If k＜3 Then Textl．Text=calculat(Val(Left$ (Opl(k)．Caption，2))) EndIf End Sub Function calculat(n As Integer) Dim k As Integer，t As Long t=1 For k=2 To n t=t*k Next k calculat=t End Function 步骤3：按要求将文件保存至考生文件夹中。 步骤4：按＜F5＞键运行程序，先选中一个选项，接着单击”计算”按钮，然后单击窗体右上角的关闭按钮结束程序。
解析
转载请注明原文地址:https://kaotiyun.com/show/eHQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)