首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command 1 Click() n=InputBox(“输入一个数”) Do While n0 Print n\10 MOd 10;:Print n Mod 10;:11=n\100 Loop Print s E
编写如下程序: Private Sub Command 1 Click() n=InputBox(“输入一个数”) Do While n0 Print n\10 MOd 10;:Print n Mod 10;:11=n\100 Loop Print s E
admin
2015-11-24
30
问题
编写如下程序:
Private Sub Command 1 Click()
n=InputBox(“输入一个数”)
Do While n<>0
Print n\10 MOd 10;:Print n Mod 10;:11=n\100
Loop
Print s
End Sub
程序运行后,单击命令按钮Commandl,并输入数值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
解析
本题中是在一个Do循环中对一个数字进行分解,首先输出该数字整除10之后再除以10得到的余数(即十位上数字),然后输出该数除以10得到的余数(即个位数字),然后将该数去掉十位和个位上的数字以后继续循环,最终依次输出5、6、3、4、1、2。
转载请注明原文地址:https://jikaoti.com/ti/RaJ0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序的功能是:找出给定的12个数中最大的一个数,然后输出这个数以及它在原来12个数中的位置。请填空。OptionBase1PrivateSubForm_Click()Dimxx=Array(57,-9,17,42,-31,46,11,
下列程序的功能是调用字体对话框米设置文本框中的字体,单击Command1按钮弹出对话框,进行相应的字体、字号等的设置,然后单占“确定”按钮退出对话框,则将发生哪些变化()。PrivateSubCommand1_Click()CommonD
窗体上有两个文本框Text1、Text2以及一个命令按钮Command1,编写下列程序:DimyAsIntegerPrivateSubCommand1_Click()DimxAsIntegerx=2Text1.Text=p2(p1
要清除已经在图片框Picturel中打印的字符串而不清除图片框中的图像,应使用语句()。
下列程序的输出图形是()。Fork=0To360cr=Int(160*RnD)ang=-3.1415926/180*kCircle(2000,2000),500,cr,0,angNext
假定在工程文件中有一个标准模块,其中定义了如下记录类型:TypeBooksNameAsString*10TelNumAsString*20EndType要求在执行事件过程Command1_Click时,在顺序文件Person.txt中
在窗体上画一个文本框,名称为Text1,画一个命令按钮,名称为Command1。程序运行时,单击命令按钮,能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test.dat中。请在空格处填上适当的内容,将程序补充完整。PrivateSubCo
测试的目的是暴露错误,评价程序的可靠性,而______的目的是发现错误的位置,并改正错误。
程序运行时,用户向文本框输入内容时,将触发文本框的()事件。
随机试题
对于丙型肝炎,下面哪一项是错误的
伤寒的主要传播途径是
仓储经营管理综合指标中的直间工比率是衡量()。
2010年7月13日,交通运输部正式对外发布《2009中国航运发展报告》。报告显示,()继续保持全球第一大港的位置。
定性研究区别于定量研究的基本特征是其研究更多地运用理性思维。()
行政诉讼中,被诉行政机关负责人应当出庭应诉。不能出庭的,则()。
下列选项中错误的是()。
甘蓝比菠菜更有营养,但是,因为绿芥蓝比莴笋更有营养,所以甘蓝比莴笋更有营养。下列各项,作为新的前提分别加入到题干的前提中,都能使题干的推理成立,除了:
清根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在标题为“文本框”、名称为Forml的窗体上面一个名称为Text1的文本框,无初始内容,其高、宽分别为2000、1800,可显示多行,有水平滚动条,并通过属性窗口
编写如下程序:Pri.vateSubCommandlClick0Dima(10)AsStrings=“123456”n=Len(s)Fork=1Tona(k)=Mid(s,k,1)NextkFori=1Ton\2
最新回复
(
0
)