栏目分类:
子分类:
返回
名师互学网用户登录
快速导航关闭
当前搜索
当前分类
子分类
实用工具
热门搜索
名师互学网 > IT > 面试经验 > 笔试题库

[问答题] 在考生文件夹下有工程文件djks044.vbp及窗体文件djks044.frm,该程序是不完整的,请在有的地方填入正确内容,然后删除及所有注释符(’),但不能修改其他部

笔试题库 更新时间: 发布时间: IT归档 最新发布 模块sitemap 名妆网 法律咨询 聚返吧 英语巴士网 伯小乐 网商动力

[问答题] 在考生文件夹下有工程文件djks044.vbp及窗体文件djks044.frm,该程序是不完整的,请在有的地方填入正确内容,然后删除及所有注释符(’),但不能修改其他部

[问答题] 在考生文件夹下有工程文件djks044.vbp及窗体文件djks044.frm,该程序是不完整的,请在有的地方填入正确内容,然后删除及所有注释符(’),但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下:在Form1窗体上建立一个名称为Op1的单选按钮数组,含有三个单选按钮,其标题分别为“10!”、“11!”、“12!”,Index属性分别为0、1、2;再画两个命令按钮,按钮的名称分别为Cmd1与Cmd2,标题分别为“计算”与“保存”;画一个名称为Tex1的文本框。程序的功能是在选定一个单选框并单击“计算”按钮后,可以计算出相应的阶乘值,在Text1中显示该值。单击“保存”,文本框中的数据可以保存到考生文件夹下的out044.txt文件夹中。注意窗体加载时,Cmd2按钮不可用,单击“计算”按钮后,Cmd2变为可用。程序运行时的窗体界面如下图所示。试题源程序1 Private Sub Cmd1_Click( )2 Cmd2.Enabled=True3 Dim i As Integer4 Dim t As Integer5 For i=0 To 26 If Opl(i)=True Theni. t=Val(Left$(Op1(i).Caption,))ii. Text1.Text=(t)7 End If8 Next i9 End Sub10 Function Out(n As Integer)11 Dim i As Integer12 Dim t As Long13 t=114 For i=2 To n15 Print16 Next i17 Out=t18 End Funtion19 Private Sub Cmd2_Click( )20 Open App.Path &a

正确答案:

1.单击考试界面的“功能”选项,从弹出的菜单中选择“启动应用程序”选项。Visual Basic启动后,打开考生文件下的工程文件。2.分别单击工具箱的按钮控件及文本框控件,在窗体上画出一个文本框和一个控制按钮。文本框的Name属性为Text1;控制按钮的Name属性为Cmd1,Caption属性为“计算”。双击工具箱中的单选按钮,在窗体上复制该按钮,然后粘贴,在弹出的对话框中选择“是”,建立一个包含三个单选按钮

参考解析:

本题程序代码中包含一个函数过程Out,该过程用来计算以n为参数的阶乘。第三个处填t=t*i,表示阶乘,阶乘值赋给t。第二个处填Out,表示对函数过程的引用。第一个处填2。Left$(Opl(i).Caption,2)表示返回字符串Opl(i).Caption从左开始的2个字符,即需要传给Out过程的实参。

转载请注明:文章转载自 www.mshxw.com
本文地址:https://www.mshxw.com/it/480508.html
我们一直用心在做
关于我们 文章归档 网站地图 联系我们

版权所有 (c)2021-2022 MSHXW.COM

ICP备案号:晋ICP备2021003244-6号