编写如下程序： Private Sub Command1_Click() Dim m As Integer, n As Integer Dim s_base As String, s As String Dim i As Integer,

admin2020-06-30 65

问题编写如下程序：
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://www.kaotiyun.com/show/oIHp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

编写如下程序： Private Sub Command1_Click() Dim m As Integer, n As Integer Dim s_base As String, s As String Dim i As Integer,

二级VB

NCRE全国计算机二级

请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画两个文本框，其名称分别为Text1和Text2，内容分别为“文本框1”和“文本框2”，编写适当的事件过程。程序运行后，如果单击窗体，则

下列排序方法中，最坏情况下时间复杂度最小的是

下面程序运行时，单击窗体后，窗体上显示的结果是()。PrivateSubForm_ClickODimiAsInteger,sumAsLongDimtAsLongt＝1：sum＝0Fo

为了建立随机文件，要求文件的每条记录应包含多个不同数据类型的数据项，则记录应使用的数据类型是

下列选项中不属于软件生命周期开发阶段任务的是()。

假定有以下循环结构：DoUntil条件表达式　　　　循环体Loop则以下正确的描述是(　　)。

以下表达式与Int(3.5)的值相同的是

在窗体上画２个文本框（名称分别为Text1和Text2），一个命令按钮（名称为Command1）。并定义以下记录类型和变量：PrivateTypeTeacherIDAsIntegerNameAsString*10En

以下程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”的条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容，在横线处应填写()。PrivateSubCommandl_Click()

选用单角铣刀铣削三面刃圆柱面直齿槽时，其端面刃与工件前刀面___________装入刀轴。

在Excel2010中，在单元格B2中输人数据“80”，在C2中输入字符“good”(均不含引号)，在单元格D2中输入=IF(AND(B2＞80，C2=”good”)，B2+10，B2—10)，则D2单元格中的结果为______。

[背景资料]下图为简支梁AB的受力图。该受力图中的约束反力肯定为正值。

承包人投标报价时，下列关于分部分项工程综合单价确定的描述中，正确的是()。

若施工过程中发现设计文件和图纸差错，施工企业的正确做法是()。

水泵按泵轴安装形式分为()。

简要概述消防车登高操作场地的检查方法的主要操作内容。

根据企业所得税法的规定，以下适用25％税率的是（）。

某人持有盗版软件，但不知道该软件是盗版的，该软件的提供者不能证明其提供的复制品有合法来源。此情况下，则该软件的______应承担法律责任。

Australiaistheworld’slargestexporterof

编写如下程序： Private Sub Command1_Click() Dim m As Integer, n As Integer Dim s_base As String, s As String Dim i As Integer,

二级VB

NCRE全国计算机二级

下列排序方法中，最坏情况下时间复杂度最小的是

下面程序运行时，单击窗体后，窗体上显示的结果是()。PrivateSubForm_ClickODimiAsInteger,sumAsLongDimtAsLongt＝1：sum＝0Fo

为了建立随机文件，要求文件的每条记录应包含多个不同数据类型的数据项，则记录应使用的数据类型是

下列选项中不属于软件生命周期开发阶段任务的是()。

假定有以下循环结构：DoUntil条件表达式 循环体Loop则以下正确的描述是( )。

以下表达式与Int(3.5)的值相同的是

在窗体上画２个文本框（名称分别为Text1和Text2），一个命令按钮（名称为Command1）。并定义以下记录类型和变量：PrivateTypeTeacherIDAsIntegerNameAsString*10En

以下程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”的条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容，在横线处应填写()。PrivateSubCommandl_Click()

选用单角铣刀铣削三面刃圆柱面直齿槽时，其端面刃与工件前刀面___________装入刀轴。

在Excel2010中，在单元格B2中输人数据“80”，在C2中输入字符“good”(均不含引号)，在单元格D2中输入=IF(AND(B2＞80，C2=”good”)，B2+10，B2—10)，则D2单元格中的结果为______。

[背景资料]下图为简支梁AB的受力图。该受力图中的约束反力肯定为正值。

承包人投标报价时，下列关于分部分项工程综合单价确定的描述中，正确的是()。

若施工过程中发现设计文件和图纸差错，施工企业的正确做法是()。

水泵按泵轴安装形式分为()。

简要概述消防车登高操作场地的检查方法的主要操作内容。

根据企业所得税法的规定，以下适用25％税率的是（）。

某人持有盗版软件，但不知道该软件是盗版的，该软件的提供者不能证明其提供的复制品有合法来源。此情况下，则该软件的______应承担法律责任。

Australiaistheworld’slargestexporterof

假定有以下循环结构：DoUntil条件表达式　　　　循环体Loop则以下正确的描述是(　　)。