首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
52
问题
编写如下程序:
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全国计算机二级
相关试题推荐
有下列二叉树,对此二叉树中序遍历的结果为()。
要获得当前驱动器应使用驱动器列表框的哪个属性______。
在下列几种排序方法中,要求内存量最大的是______。
下面程序运行后,窗体中显示【】。PrivateSubCommand1_Click)()aS="*":b$="$"Fork=1To3x$
某二叉树的中序序列和后序序列正好相反,则该二叉树一定是______的二叉树。
确定复选框是否选中,可访问的属性是______。
关于数据库系统的特点,下列说法中错误的是数据______。
下列说法错误的是
下面关于完全二叉树的叙述中,错误的是______。
用树形结构来表示实体之间联系的模型称为______。
随机试题
异烟酸一吡唑酮分光光度法测定水中的氰化物的原理是:在pH值为7.0的溶液中,用氯胺T将氰化物转变为氯化氰,再与异烟一酸吡唑酮作用,生成蓝色染料,比色定量。
地形要素的生态作用一般表现在坡向、坡位、坡度和( )。
子宫颈早期浸润癌的病理变化包括
中枢镇痛药吗啡发挥其强大镇痛作用的机制是
A、舌尖B、舌边C、舌中D、舌底E、舌根肾在舌上的分布是
注意事项1.本题本由给定资料与作答要求两部分组成。考试时限为180分钟。其中,阅读给定资料参考时限为50分钟,作答参考时限为130分钟。2.请在题本、答题卡指定位置上用黑色字迹的钢笔或签字笔填写自己的姓名和准考证号,并用2B铅笔在准考证号对应的数字上填
有钱并不意味着幸福。有一项覆盖面相当广的调查显示,在自认为有钱的被调查者中,只有1/3的人感觉自己是幸福的。要使上述论证成立,以下哪项是必须假设的?
具体劳动和抽象劳动的区别在于()
Isthewomanverysurethatshecanmeetthedeadlineatthebeginningoftheconversation?
A、Theadoptionofmodernideologiescanstopwar.B、Theadoptionofanyideologycouldpreventwar.C、Theadoptionofsomeideol
最新回复
(
0
)