首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,名称为Command1,然后编写如下代码: Option Base 0 Private Sub Command 1 Click() Dim A 1(4)As Integer,A2(4)As Integer For k=0 T
在窗体上画一个命令按钮,名称为Command1,然后编写如下代码: Option Base 0 Private Sub Command 1 Click() Dim A 1(4)As Integer,A2(4)As Integer For k=0 T
admin
2020-01-02
25
问题
在窗体上画一个命令按钮,名称为Command1,然后编写如下代码:
Option Base 0
Private Sub Command 1 Click()
Dim A 1(4)As Integer,A2(4)As Integer
For k=0 To 2
A1(k+1)=InputBox("请输入一个整数")
A2(3-k)=A1(k+1)
Next k
Print A2(k)
End Sub
程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6,则输出结果为
选项
A、0
B、1
C、2
D、3
答案
C
解析
本题的关键之处在于抓住每次具体给哪个数组元素进行了赋值,第一次循环中输入的2被赋给了A1(1)和A2(3),第二次循环中输入的4被赋给了A1(2)和.A2(2),第三次循环中输入的6被赋给了A1(3)和A2(1),跳出循环时k的值为3,所以最后输出2。
转载请注明原文地址:https://jikaoti.com/ti/u5x0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在名称为Form1的窗体上建立一个二级下拉菜单(菜单项见表3.2),运行时的窗体如图3-98所示。注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjtl.frm。(2)在名称为Form1的窗体上
(1)在名称为Form1的窗体上画出如图3-46所示的三角形。下表给出了直线Line1、Line2的坐标值,请按此表画Linel、Line2,并画出直线Line3,从而组成如图3-46所示的三角形。注意:存盘时必须存放在考生文件夹下,工程文件名
(1)在名称为Form1标题为“选课”的窗体上画一个复选框数组,名称为CH1,共有四个复选框,按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”,其中“语文”、“计算机”复选框处于选中状态,运行时的窗体如图3.147所示。请画控件并设置相应属性。
(1)在名称为Form1的窗体上画一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为“加粗”、“斜体”、“下划线”,名称分别为M1、M2、M3。请编写适当的事件过程,在运行时当用鼠标右键单击窗体时,弹出此菜单,
在考生文件夹下有一个工程文件sjt5.vbp,窗体如图3—82所示。运行程序时,从数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,并统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框中。
(1)在名称为Form1的窗体上画一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为“加粗”、“斜体”、“下划线”,名称分别为M1、M2、M3。请编写适当的事件过程,在运行时当用鼠标右键单击窗体时,弹出此菜单,
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个标签,名称为L1,标题为“业余爱好”,再画一个名称为Ch1的复选框数组,含三个复选框,它们的Index属性分别为0、1、2,标题依
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份,下面判断闰年的正确表达式是
设x=4,y=6,则以下不能在窗体上显示出“A=10”的语句是
以下关于过程的叙述中,错误的是
随机试题
下列选项中关于泰戈尔说法错误的是()
生态系统的物质循环有一定的自我调节能力。()
A.金属面牙B.金属基底C.压缩托牙D.垫式牙E.双层牙列深覆病人,上前牙缺失,年龄较大,下前牙健康较差者,适宜设计
新生儿期指的是
下列哪种是允许使用的食用合成色素()。
班杜拉认为,行为的结果因素就是通常所说的强化,并把强化分为()。
能有效发现变量之间因果关系的研究方法是()。
设z=yf(x2-y2),其中f可导,证明:
“劣币驱逐良币”现象是在()货币制度下产生的。
PASSAGETWO
最新回复
(
0
)