2. 计算机
  3. 在窗体上画一个名称为Command1的命令按钮，编写如下程序代码： Option Base 1 Private Sub Command1_Click() Dim n As Long Dim m As Integer

在窗体上画一个名称为Command1的命令按钮，编写如下程序代码： Option Base 1 Private Sub Command1_Click() Dim n As Long Dim m As Integer

admin2020-06-30  57
问题 在窗体上画一个名称为Command1的命令按钮，编写如下程序代码：
    Option Base 1
    Private Sub Command1_Click()
    Dim n As Long
    Dim m As Integer
    Dim x As Integer，i As Integer
    Dim nums()As Integer
    n=CLng(Val(InputBox("输入一个正整数"，"输入")))
    m=Len(Trim(Str(n)))
    ReDim Bum8(m)
    For i=m To 1 Step—1
    nums(i)=n  10^(i—1)
    n=n—num$(i)*10^(i一1)
    Next i
    For i=m To 1 Step一1
    x=x+num$(i)
    Next i
    Print x
    End Sub
    程序运行时，单击命令按钮，在出现的输入对话框中输入“8356”，则输出结果是(    )。
选项 A、一6
B、6538
C、8356
D、22
答案D
解析 程序开始前使用Option Base 1语句，表示数组下标从1开始。在过程Command1_Click中定义了动态数组nums，通过lnputBox函数输入一个正整数赋值给n，n=8356；str(n)可以将n转换为字符串，通过Len函数测量字符串的长度，然后赋值给变量m，m=4。通过ReDim语句给动态数组nums重新分配空间，nums是一个可以包含4个元素的一维整型数组。第一个for循环的功能是：将整数n的千位数赋值给nums(1)，将整数n的百位数赋值给nums(2)，将整数n的十位数赋值给nums(3)，将整数n的个位数赋值给hums(4)，所以循环结束后nilms(1)=8，nums(2)=3，nums(3)=5，hums(4)=6。后一个For循环的功能是：将hums数组中的所有元素累和，并将结果赋值给变量x，x=8+3+5+6=22，最后输出x的值。故本题D选项正确。本题选择D选项。
转载请注明原文地址:https://kaotiyun.com/show/pTHp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)