首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim n As Long, s As String n = InputBox("输入一个数") Do While n 0 Print n \ 10
编写如下程序: Private Sub Command1_Click() Dim n As Long, s As String n = InputBox("输入一个数") Do While n 0 Print n \ 10
admin
2019-06-20
67
问题
编写如下程序:
Private Sub Command1_Click()
Dim n As Long, s As String
n = InputBox("输入一个数")
Do While n <> 0
Print n \ 10 Mod 10;
Print n Mod 10;
n = n \ 100
Loop
Print s
End Sub
程序运行后,单击命令按钮Command1,并输入数值123456,则输出结果为
选项
A、6 5 4 3 2 1
B、5 6 3 4 1 2
C、6 4 2 5 3 1
D、6 1 5 2 4 3
答案
B
解析
Print语句对输入的数值n=123456进行处理并打印。第一条语句打印n的十位数,第二条语句打印n的个位数。然后n被求余
转载请注明原文地址:https://www.kaotiyun.com/show/UfUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
执行以下程序段a$="VisualBasicProgramming":b$="C++"c$=UCase(Left$(a$,7))&b$&RightS(aS,12)变量c$的值为
在窗体上画两个文本框(Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下事件过程:PrivateSubCommand1Click()x=0doWhilex
下面的程序执行时,将把当前目录下的顺序文件smtextl.txt的内容读入内存,并在文本框Text1中显示出来。在横线处应填写()。PrivateSubCommand1_Click()DiminDataAsString
已知二叉树后序遍历序列是CDABE,中序遍历序列是CADEB,它的前序遍历序列是()。
某二叉树中有n个度为2的结点,则该二叉树中的叶子结点数为
以下自定义数据类型的语句中,正确的是
下列描述中,错误的是
设在工程文件中有一个标准模块,其中定义了如下记录类型:TypeBooksNameAsString*10:TelNumAsString*20EndType在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1_Cli
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上面一个名称为Combol的组合框,其宽度为1200,其类型如图2.102所示(即简单组合框)。要求如下:①请按图中所示,通过属
设栈的顺序存储空间为S(1:m),初始状态为top=0。现经过一系列正常的入栈与退栈操作后,top=m+1,则栈中的元素个数为()。
随机试题
胆管疾病中常见的胆管内异常回声,不包括
市场法的理论基础是在()情况下,相同或相似资产的价值也是相同或相似的。
教师选择给幼儿的学习内容,应有一定的难度,而且是逐渐加深的,需要幼儿作出一定的努力才能学会。这体现了幼儿园教育活动的()。
共情是指能设身处地体验他人的处境,对他人情绪情感具备感受力或理解力。根据上述定义,下列属于共情的是()。
__________是唯物辩证法最根本的规律,是辩证法的实质和核心。
A、 B、 C、 D、 D图形分为外中内三层,是三个相似的图形,第3个图形是中层的那个图形呈阴影状。
学生家长:这学期学生的视力普遍下降,这是由于学生书面作业的负担太重。校长:学生视力下降和书面作业负担没有关系,经我们调查,学生视力下降的原因是由于他们做作业时的姿势不正确。以下哪项如果是真的,最能削弱校长的辩解?()
设函数f(y)的反函数f-1(x)及f’[f-1(x)]与f"[f’(x)]都存在,且f-1[f-1(x)]≠0.证明:
1"Itisalwaysconsolingtothinkofsuicide,"theGermanphilosopherFriedrichNietzscheoncewrote,"inthatwayonegets
HowdopeoplemaketheOkaysign?Byjoiningthe______andindexfingerinacircle.
最新回复
(
0
)