题目内容

某人编写了下面的程序: Private Sub Command1_Click() Dim a As Integer,b As Integer a=InputBox("请输入整数") b=InputBox("请输入整数") pro a pro b Call pro(a+b) End Sub Private Sub pro(n As Integer) While(n>0) Print n Mod 10; n=n\10 Wend Print End Sub 此程序功能是输入2个正整数,反序输出这2个数的每一位数字,再反序输出这2个数之和的每一位数字。例如若输入123和234,则应该输出: 3 2 1 4 3 2 7 5 3 但调试时发现只输出了前2行(即2个数的反序),而未输出第3行(即2个数之和的反序),程序需要修改。下面的修改方案中正确的是( )

A. 把过程pro的形式参数n As Integer改为ByVal n As Integer
B. 把Call pro(a+b)改为pro a+b
C. 把n=n\10改为n=n/10
D. 在pro b语句之后增加语句c%=a+b,再把Call pro(a+b)改为pro C

查看答案
更多问题

假定有下列函数过程: Function Fun(S As String)As String Dim sl As String For i=1 To Len(S) S1=LCass(Mid(S,i,1))+s1 Next i Fun=s1 End Function 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim Strl As String,Str2 As String Str1=InputBox("请输入一个字符串") Str2=Fun(Str1) Print Srt2 End sub 程序运行后,单击命令按钮,如果在输入对话框中输入字符串“abcdefg”,则单击“确定”按钮后在窗体上的输出结果为( )

ABCDEFG
B. abcdefg
C. GFEDCBA
D. gfedcba

日常生活中,火无处不在。火的存在改变了人们的生活和行为方式,但稍有不慎引发火灾,对人们的生命和财产也会造成极大的危害。一旦火灾降临,身处火海,在浓烟毒气和烈焰包围中应如何更好地逃生下列做法正确的是( )。

A. 立即打开门,快速离开房间,迅速跑出楼房
B. 经过充满烟雾的路线时,用毛巾、口罩蒙住口鼻,匍匐撤离
C. 乘电梯快速离开房间
D. 利用建筑物的阳台、窗台、屋顶等攀到周围的安全地点

江某是一合伙企业的合伙事务执行人,欠罗某个人债务7万元,罗某在交易中又欠合伙企业7万元。后合伙企业解散。清算中,罗某要求以其对江某的债权抵销其所欠合伙企业的债务,各合伙人对罗某的这一要求产生了分歧。下列看法中正确的是( )。

A. 江某的债务如同合伙企业债务,罗某可以抵销其对合伙企业的债务
B. 江某所负债务为个人债务,罗某不得以个人债权抵销其对合伙企业债务
C. 若江某可从合伙企业分得7万元以上的财产,则罗某可以抵销其对合伙企业的债务
D. 罗某可以抵销其债务,但江某应分得的财产不足7万元时,应就差额部分对其他合伙人承担赔偿责任

若变量a未事先定义而直接使用(例如a=0),则变量a的类型是( )

A. Integer
B. String
C. Boolean
D. Variant

答案查题题库