首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim m As Integer, n As Integer Dim s_base As String, s As String Dim i As Integer,
编写如下程序: Private Sub Command1_Click() Dim m As Integer, n As Integer Dim s_base As String, s As String Dim i As Integer,
admin
2015-06-30
40
问题
编写如下程序:
Private Sub Command1_Click()
Dim m As Integer, n As Integer
Dim s_base As String, s As String
Dim i As Integer, j As Integer
Dim r(20) As Integer
s_base = "0123456789ABCDEF"
m = InputBox("输入数据1")
n = InputBox("输入数据2")
i = 0
Do While m <> 0
r(i) = m Mod n
m = m \ n
i = i + 1
Loop
s = ""
For j = i - 1 To 0 Step -1
s = s + Mid(s_base, r(j) + 1, 1)
Next j
Print s
End Sub
程序运行后,单击命令按钮Command1,并依次在输入对话框中输入58和16,输出结果为
选项
A、A3
B、3A
C、29
D、92
答案
B
解析
m=58,n=16时,r(0)=58 对16取余 得10, m 整除 n得3,m=3;再次循环,r(1)=m 对n取余 得3对16取余得 3,m整除n后得0,退出循环,此时数组r:r(0)=10,r(1)=3。继续下一个For循环,j从1到0,步长为-1,当j为1时,Mid(s_base, r(j) + 1, 1)即为Mid(s_base, 4, 1),即从字符串s_base的第4个字符开始,向后截取一个字符,为"3",s为"3"。同理当j为0时, 从字符串s_base的第11个字符开始,向后截取一个字符,为"A",此时,s="3"+"A"="3A",故输出结果为3A,选择B。
转载请注明原文地址:https://kaotiyun.com/show/BVQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
软件需求分析阶段的工作,可以分为4个方面:需求获取、需求分析、编写需求规格说明书以及()。
窗体上有两个文本框Text1、Text2以及一个命令按钮Command1,编写下列程序:DimyAsIntegerPrivateSubCommand1_Click()DimxAsIntegerx=2Text1.T
对长度为n的线性表进行顺序查找,在最坏情况下需要比较的次数为()。
在VisualBasic中按文件的编码方式不同,可将文件分为【】。
下列程序段的执行结果为______。X=2Y=1IfX*Y<1ThenY=Y-1ElseY=-1PrintY-X>0
为了便于对照检查,测试用例应由输入数据和预期的【】两部分组成。
在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(真Name属性为Command1),然后编写如下事件过程:PrivateSubCommand1_Click()x=0DoWh
在有n个结点的--31链表中,值为非空的链域的个数为______。
下列叙述中正确的是
以下说法不正确的是
随机试题
状态转换方法目前主要有三种实现方法:____________、有色Petri-Net和语言/应用编程接口。
国家运用行政手段直接协调和控制微观经济主体的经济行为,这是
下列容易发生呼吸性酸中毒的是
关于公司的财务行为,下列哪些选项是正确的?(2014年卷三第71题)
下列不是债券基金的投资风险的是( )。
依照《中华人民共和国证券投资基金法》的规定,下列不属于基金托管人职责的是()。
可以对有关责任人员从轻、减轻或者免予采取证券市场禁人措施的情形包括()。I.主动消除或者减轻违法行为危害后果的Ⅱ.配合查处违法行为有立功表现的Ⅲ.受他人指使、胁迫有违法行为,且能主动交代违法行为的Ⅳ.其他可以
否定之否定规律是在自然、社会和人类思维领域普遍起作用的规律,它在()。
甲赠与乙房屋一间,条件是:乙必须与甲结婚,该民事法律行为()。
Untilaround1930fewUnitedStatesCivilWarhistorianspaidmuchattentiontoSouthernerswhoopposedthe1861-1865secession
最新回复
(
0
)