题目内容（请给出正确答案）

[单选题]

有如下代码： dim a as long ,b as long a=Inputbox（"请输入第一个数") b=Inputbox（"请输入第二个数") print a & b 程序运行后，在两个对话框中先后输入12345和54321，则输出结果是（）。

A.66666

B.5432112345

C.1234554321

D.出错

提问人：网友dduc1234 发布时间：2022-01-07

参考答案

查看官方参考答案

如搜索结果不匹配，请联系老师获取答案

网友答案

查看全部（）

· 有4位网友选择 C，占比40%
· 有3位网友选择 D，占比30%
· 有3位网友选择 A，占比30%

ABCD

提交我的答案

登录提交答案，可赢取奖励机会。

登录/注册

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“有如下代码： dim a as long ,b as lon…”相关的问题

第1题

在窗体上画一个命令按钮，然后编写如下程序：

Dim k As Long

k=1

Do While num

Loop

fun=k

End Function

Private Sub Command1_Click()

Dim n As Long

Dim r As Long

MsgBox r

End Sub

程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为()。

点击查看答案

第2题

下列程序求 Sn = a+aa+aaa+……+aa…aa(n个a)的值，其中a是一个数字。例如若a=2，n=5时，Sn=2+22+222+2222+22222，其值应为24690。请填空。 int main(void) { int a,n,count=1,sn=0,tn=0; printf("请输入a和n：\n"); scanf("%d %d",&a,&n); while (count<=n) { (1) sn="sn+tn;" (2) count++; } printf("结果＝%d\n",sn); return 0; 第（1）空应该填入的语句是______。>

点击查看答案

第3题

Dim x%,y% x=Inputbox("请输入第一个数") y=Inputbox("请输入第二个数") print x+y 当输入分别为12和34时，程序输出为（）。

A、1234

B、46

C、34

D、程序出错

点击查看答案

第4题

对N个记录进行简单选择排序，最少的比较次数为（）。

A、1次

B、N次

C、N-1次

D、N*N次

点击查看答案

第5题

下面的程序用于根据文本框X中输入的内容进行以下处理：若X为2、4、6，则打印"X的值为2、4、6"；若X在11到15之间，则打印"X的值为大于等于11小于等于15"；若X大于20，则打印"X的值大于20"；否则，打印"X不在范围内"。 Private Sub Command1_Click() Select Case Val(X.Text) Case Print "X的值为2,4,6" Case 11 to 15 Print "X的值为大于等于11小于等于15" Case Is >20 Print "X的值大于20" Case Else Print "X不在范围内" EndSelect End Sub

A、2 4 6

B、2,4,6

C、2;4;6

D、6 to 2

点击查看答案

第6题

编程显示100~500之间所有的水仙花数之和。 (水仙花数是3位数，其各位数立方之和等于该数本身) Private Sub Form_Click() Print"100~500之间所有的水仙花数为：" Dim x%, a%, b%, c% For x = 100 To 500 a= x Mod 10 b= (x Mod 100) \ 10 c= x \ 100 If Then Print x Next x End Sub

A、x = a + b*10 + c*100

B、x = a*100 + b*10 + c

C、x = a ^ 3 + b ^ 2 + c

D、x = a ^ 3 + b ^ 3 + c ^ 3

点击查看答案

第7题

找出被3、5、7除，余数均为1的最小的5个正整数。 Private Sub Command1_Click() Dim countn%, n% n =1: countn = 0 Do n= n + 1 If Then Print n countn = countn + 1 End If Loop until count n=5 End Sub

A、n mod 3=1 And n mod 5=1 And n mod 7=1

B、n mod 3=1 or n mod 5=1 or n mod 7=1

C、n \ 3=1 And n \ 5=1 And n \ 7=1

D、n \ 3=1 or n \ 5=1 or n \ 7=1

点击查看答案

第8题

输入两个整数M，N，求它俩的最大公约数。 Private Sub Command1_Click() Dim m%, n%，t%，x% m = Val(InputBox("请输入第1个数m：")) n = Val(InputBox(“请输入第2个数n：”)) If m < n Then t = m: m = n: n = t For y = n To 1 Step -1 If Then Print "最大公约数为："; y Exit For End If Next y End Sub

A、y Mod m = 0 And y Mod n = 0

B、m Mod y = 0 And n Mod y = 0

C、m Mod y = 0 or n Mod y = 0

D、y Mod m = 0 or y Mod n = 0

点击查看答案

第9题

从键盘输入一个数N，判断是否为质数。 Private Sub Command1_Click() Dim N %, I%, K% N = Val(InputBox("N=？")) K= N-1 For I = 2 To K If N Mod I = 0 Then Exit For Next I If Then Print N; “ 是质数" Else Print N; “ 不是质数" End If End Sub

A、I>K

B、I=K

C、I>K+1

D、I>N

点击查看答案

第10题

假定定义了一个过程Sub Add(a As Single, b As Single)，则正确的调用语句是( )。

A、Add 12,12

B、Call Add [12,12]

C、Call Add x,y

D、Call Add (12, 12, x)

点击查看答案