每日一练:计算机二级考试Visual Basic每日一练(2017/9/11)
【单选题】在窗体上设置相应的控件,并在代码窗口编写下列程序:
PrinteSubForm_Click()
DimaAsLong,bAsLong
a=InputBox("请输入若干个整数")
CallP(a,b)
Printb
EndSub
PrivateSubP(xAsLong,yAsLong)
DimnAsInteger,jAsString*1,sAsString
k=Len(Trim(Str(x)))
s=""
Fori=KTo1Step-1
j=Mid(x,i,1)
s=s+j
Nexti
y=Val(s)
EndSub
运行程序,在InputBox框中输入123456,然后单击"确定"按钮,则输出结果是()
A.123456
B.654321
C.135246
D.246135
在下面提交答题后即可查看答案与试题解析
发布评论 查看全部评论