首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Dim num As Integer,r As Integer,n As Integer,i As Integer,arr(5)As Integer Private Sub Command l_Click()
编写如下程序: Dim num As Integer,r As Integer,n As Integer,i As Integer,arr(5)As Integer Private Sub Command l_Click()
admin
2020-01-02
65
问题
编写如下程序:
Dim num As Integer,r As Integer,n As Integer,i As Integer,arr(5)As Integer
Private Sub Command l_Click()
num=12:r=2
Call subl(num,r,n)
For i=n To 1 Step-1
Print arr(i);
Next i
End Sub
Sub sub 1(d As Integer,r As Integer,k As Integer)
k=0
Do While d<>0
k=k +1:arr(k)=d Mod r:d=d\r
Loop
End Sub
程序运行后,单击命令按钮Commandl,输出结果为
选项
A、1 1 0 0
B、0 0 1 1
C、0 1 0 1
D、1 0 1 0
答案
A
解析
本题实际上是在子过程sub1中对arr数组进行的赋值工作,形参d的值为12,r的值为2,k的初值为0;在循环中计算d除以2的余数放到数组的第一个元素,整除2后再除以2的余数放到第二个元素……以此类推,最后数组arr中存放的是(0、0、1、1),在Commandl_Click()过程中调用完子过程对数组进行赋值以后,逆序输出了数组的值。
转载请注明原文地址:https://kaotiyun.com/show/fbTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,然后编写如下代码:PfivateSubCommand1_Click()DimMaxSize,NextChar,MyCharOpen"d:\temp\female.txt"ForInputAs
在新建一个VB工程时,将新建窗体的Name属性设置为TheFirst,则默认的窗体文件名为()。
()控件可以使图形根据控件大小而改变大小。
假定窗体上有一个标签,名为Label1,为了使该标签透明并且没有边框,则正确的属性设置为()。
以下能正确定义数据类型Systemlnfo的代码是()。
下面哪个属性不是框架控件的属性()。
在考生文件夹下有一个工程文件sjt5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.眦文件(如图1所示),单击“打开”按钮,则把文件中的内容读入并显示
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画1个名称为Framel、标题为“项目”的框架;框架内有1个名称为opt1的控件数组,该控件数组含有三个标题分别为“篮球”“排球”“足球
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为CmdChange、标题为“改变颜色"的命令按钮,窗体标题为“设置窗体背景色”。编写程序,使得单击命令按钮时,将窗体的背景
随机试题
癌变可能性最小的直肠息肉是
石棉肺的发病机制有以下学说,但最近被多数人认可的是
下列属于对话框中的元素有()。
账户使原始数据转换为初始会计信息,通过账户可以对大量的、复杂的经济业务进行分类核算,从而提供不同性质和内容的会计信息。()
预算外资金是()。
通货膨胀造成的现金流转不平衡可以靠取得短期借款的办法来解决。()
C注册会计师决定采用审计抽样对Y公司20×9年度财务报表进行审计,请代为做出正确的专业判断。注册会计师不论是进行统计抽样还是进行非统计抽样都要对所选取的样本实施审计程序,下列对实施的审计程序表达正确的有()。
下列关于μC/OS—II操作系统的描述中,错误的是()。
下列关于WindowsServer2003系统下www服务器的描述中,正确的是()。
Onesummernight,onmywayhomefromworkIdecidedtoseeamovie.Iknewthetheatrewouldbeair-conditionedandIcouldn’t
最新回复
(
0
)