首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生目录下有一个工程文件sjt3.vbp,窗体上有一个命令按钮Command1(标题为“下一个”)。 要求:在窗体上建立一个单选按钮数组Option1,含4个单选按钮,标题分别为“选项1”、“选项2”、“选项3”、“选项4”,初始状态下,“
(1)在考生目录下有一个工程文件sjt3.vbp,窗体上有一个命令按钮Command1(标题为“下一个”)。 要求:在窗体上建立一个单选按钮数组Option1,含4个单选按钮,标题分别为“选项1”、“选项2”、“选项3”、“选项4”,初始状态下,“
admin
2018-10-29
32
问题
(1)在考生目录下有一个工程文件sjt3.vbp,窗体上有一个命令按钮Command1(标题为“下一个”)。
要求:在窗体上建立一个单选按钮数组Option1,含4个单选按钮,标题分别为“选项1”、“选项2”、“选项3”、“选项4”,初始状态下,“选择1”为选中状态。如图3-190所示。窗体文件中已经给出了命令按钮的Click事件过程,但不完整,请去掉程序中的注释符,把程序中的“?”改为正确的内容,使得每单击命令按钮一次,就选中下一个单选按钮,如果已经选中最后一个单选按钮,再单击命令按钮,则选中第一个单选按钮。
注意:不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,窗体上已经画出所有控件,如图3-191所示。在Text1文本框中输入一个任意的字符串(要求串的长度≥10),然后选择组合框中的三个截取运算选项之一。单击“计算”按钮,将截取运算后的结果显示在Text2中。窗体文件中已经给出了程序,但不完整,请去掉程序中的注释符,把程序中的“?”改为正确的内容。
注意:不得修改已经给出的程序。最后把修改后的文件按原文件名存盘。
选项
答案
第1小题 【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sjt3.vbp,按要求画出控件数组并设置属性。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: Private Sub Command1_Click( ) For k=0 To 3 If Optionl(k).Value Then n=k End If Next k Optionl(n).Value=False n=n+1 If n=4 Then n=0 End If Optionl(n).Value=True End Sub 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: SeleCt CaSe Combo1.ListIndex tmpStr=Mid(Trim(Text1.Text),3,4)Text2.Text=tmpStr 步骤2:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/ftFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
一般情况下,当对关系R和S进行自然连接时,要求R和S含有一个或者多个共有的
以下说法中正确的是
下列程序段的输出结果是x=5Printx+1;x+1
对长度为n的线性表作快速排序,在最坏情况下,比较次数为
VisualBasic中的"启动对象"是指启动VisualBasic应用程序时,被自动加载并首先执行的对象。下列关于VisualBasic"启动对象"的描述中,错误的是( )。
下面不属于软件测试实施步骤的是
一般情况下,当对关系R和S进行自然连接时,要求R和S含有一个或者多个共有的
窗体上有名称为Command1的命令按钮,名称分别为List1、List2的列表框,其中List1的MultiSelect属性设置为1(Simple),并有如下事件过程:PrivateSubCommand1_Click() Fori=0To
对长度为n的线性表作快速排序,在最坏情况下,比较次数为
一般情况下,当对关系R和S进行自然连接时,要求R和S含有一个或者多个共有的
随机试题
沙土应落肥勤施。
在建筑施工过程中产生的干扰周围生活环境的声音属于()。
对综合控制系统试验说法正确的是()。
在基层上用于浇洒透层的材料包括()。
以下关于劳动法基本原则的说法,正确的有()
认知能力的提高主要是由于()。
数字减影血管造影
把剩余价值转化为资本,或者说剩余价值的资本化,就是资本积累。资本积累导致的最终结果是
已知f(x,y)=设D为由x=0、y=0及x+y=t所围成的区域,求F(t)=f(x,y)dxdy.
设有如下程序:PrivateSubForm_Click()num=InputBox(”请输入一个实数”):P=InStr(num,",")IfP>0ThenP
最新回复
(
0
)