在VB的基本数据类型中，通用类型(Variant)可以表示任何类型的变量，则以下变量赋值中正确的是()

在窗体中添加一个命令按钮Command1，并有以下程序：

Functionretnum()

nl=Chr(13)+Chr(10)

msg$="1.运行VB应用程序"+nl+"2.计算器"

msg$=msg$+nl+"请输入数字选择"

retnum=InputBox(msg$,Title,Default)

EndFunction

PrivateSubCommand1_Click()

r=retnum

Ifr=1Then

x=Shell("c:\vbp\vbexam.exe",1)

ElseIfr=2Then

z=Shell("calc.exe",1)

Else

MsgBox"请输入1-2的数"

EndIf

EndSub

程序运行后，单击命令按钮，在输入对话框内输入2，窗体将显示( )

A.请输入1-2的数

B.Windows的计算器

C.调用C:\vbp\vbexam.exe程序并运行

D.出错

在通用声明中定义a，在窗体中添加一个命令按钮Command1，编写如下程序代码：

DimaAsInteger

Subtest()

a=a+1:b=b+1:c=c+1

Print"Sub:";a;"，";b;"，";c

EndSub

PrivateSubCommand1_Click()

a=2:b=3:c=4

Calltest

Calltest

EndSub

程序运行后，单击命令按钮，窗体中将显示( )

A.Sub：3，4，5Sub：4，5，6

B.Sub：2，3，4Sub：2，3，4

C.Sub：3，1，1Sub：4，1，1

D.Sub：1，1，1Sub：1，1，1

1)，然后编写如下两个事件过程：

PrivateSubCommand1_Click()

a=UCase(Text1.Text)+Left(Text2.Text,2)

Printa

EndSub

PrivateSubForm_Load()

Text1.Text="Ab"

Text2.Text="123456"

EndSub

程序运行后，单击命令按钮，输出结果为( )

A.ab12

B.AB12

C.AB56

D.ab56

以下能够正确计算1+2+3+…+10的程序是( )

A.PrivateSubCommand1_Click()

Sum=0ForC=1To10

Sum=Sum+1

NextC

PrintSum

EndSub

B.PrivateSubCommand1_Click()

Sum=0,C=1DoWhileC<=10

Sum=Sum+1

C=C+1

Loop

PrintSum

EndSub

C.PrivateSubCommand1_Click()

Sum=0;C=1Do

Sum=Sum+1C=C+1

Loop

WhileC>10

PrintSum

EndSub

D.PrivateSubCommand1_Click()

Sum=0;C=1Do

Sum=Sum+1

C=C+1

Loop

WhileC<10

PrintSum

EndSub

发送账号至手机

密码将被重置

获取验证码

发送

温馨提示

该问题答案仅针对搜题卡用户开放，请点击购买搜题卡。

马上购买搜题卡

我已购买搜题卡， 登录账号 继续查看答案

重置密码

确认修改

谢谢您的反馈

您认为本题答案有误，我们将认真、仔细核查，
如果您知道正确答案，欢迎您来纠错

开始纠错>>>

警告：系统检测到您的账号存在安全风险

为了保护您的账号安全，请在“上学吧”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！

微信搜一搜

上学吧

点击打开微信

警告：系统检测到您的账号存在安全风险

抱歉，您的账号因涉嫌违反上学吧购买须知被冻结。您可在“上学吧”微信公众号中的“官网服务”-“账号解封申请”申请解封，或联系客服。

微信搜一搜

上学吧

点击打开微信