首页 > 自考

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

[单选题]

设有如下程序：程序运行后单击窗体，输出结果是（）

A.BCCDEDEFG

B.AABBCDEFG

C.ABCDEFG

D.AABBCCDDEEFFGG

答案

A、BCCDEDEFG

解析：MID（字符串开始位置N）表示从开始位置处截取指定N个数的字符本题中每次截取字符串并将截取的字符串连接在原字符串的前面I=4时Y=″DEFG″；I=3时Y=″CDEDEFG″；I=2时Y=″BCDEDEFG″；I=1时Y=″ABCDEDEFG″

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

您可能会需要：

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

安装优题宝APP，拍照搜题省时又省心！

更多“设有如下程序：程序运行后单击窗体，输出结果是（）”相关的问题

第1题

设有如下程序： Private Sub Form. Click（） Dim s As Long，f As Long Dim n As Integer，i A

s Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next i Print s End Sub 程序运行后，单击窗体，输出结果是（）。

A.32

B.33

C.34

D.35

点击查看答案

第2题

设有如下程序：Option Base 0Private Sub Form_Click（)Dim aDim I As Integera=Array（1,2,3,4,5,6,7,8,9)For I=0 To 3Print a（5 – I);Next IEnd Sub程序运行后，单击窗体，则在窗体上显示的是（)。

A.4321

B.5432

C.6543

D.7654

点击查看答案

第3题

在窗体上画—个命令按钮，其名称为Command1，然后编写如下程序： Function M（x As Integer,y As

在窗体上画—个命令按钮，其名称为Command1，然后编写如下程序： Function M(x As Integer,y As Integer) M=IIf(x＞y,x，y) End FUNction Private Sub Command1 Click() Dim a As Integer,b As Integer a=100 b=200 Print M(a,B0 End Sub 程序运行后，单击命令按钮，输出结果为【】。

点击查看答案

第4题

在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click（) Dim arr（)A

在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 arr(i)=i Next i x=InputBox("请输入一个数字：") If Val(x)＞4 Then ReDim art(4) air(4)=x End If Me.Print(arr(4)-art(3)) End Sub 程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为【】。

点击查看答案

第5题

在窗体上画一个名称为Command1的命令按钮。编写如下事件过程： Private Sub Command1_Click（) Di

在窗体上画一个名称为Command1的命令按钮。编写如下事件过程： Private Sub Command1_Click() Dim a As String A=【】 For i=1 To 5 Print Space(6-i); Mid$(a, 6-i, 2*i-1) Next i End Sub 程序运行后，单击命令按钮，要求窗体上显示的输出结果为： 5 456 34567 2345678 123456789 请填空。

点击查看答案

第6题

在窗体上画一个命令按钮（其Name属性为Command1)，然后编写如下代码：Private Sub Command1_Click（)

在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim Arr1(10)As Integer，arr2(10)As Integer n=3 For i=1 To 5 Arr1(i)=i arr2(n)=2*n+i Next i Print arr2(n)；Arr1(n) End Sub 程序运行后，单击命令按钮，输出结果是 ______。

A．11 3

B．3 11

C．13 3

D．3 13

点击查看答案

第7题

假定有如下的Sub过程：Sub S（x As Single，y As Single)t=xx=t/yy=t Mod y End Sub在窗体上画一个

假定有如下的Sub过程： Sub S(x As Single，y As Single) t=x x=t/y y=t Mod y End Sub在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=4 S a，b Print a，b End Sub程序运行后，单击命令按钮，输出结果为______ 。

A．5 4

B．1 1

C．1.25 4

D．1.25 1

点击查看答案

第8题

编写如下通用过程： Sub proc（By Val num As Long，ByRef ren As Long) Dim k

编写如下通用过程： Sub proc(By Val num As Long，ByRef ren As Long) Dim k As Long K = 1 num=Abs(num) Do While num k= k *(num Mod 10) num=num\ 10 Loop ren=k End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim n As Long， r As Long n=InputBox("请输入一个整数") n = CLng(n) proc n，r Print r End Sub 程序运行后，单击命令按钮，在输入对话框中输入345，输出结果是【】。

点击查看答案

第9题

阅读如下程序； Private Sub Form. Click（) msg1$=“继续吗？” msg2$=“操作对话

阅读如下程序； Private Sub Form. Click() msg1$=“继续吗？” msg2$=“操作对话框” r=MsgBox(msg1$，vbYesNo OrvbDefaultButton2，msg2$) End Sub 程序运行后，单击窗体，将产生一个信息框。此时如果直接按回车键，则相当于用鼠标单击信息框中的【】按钮。

点击查看答案

第10题

假定有下面的过程：Function Func（a As Integer,b As Integer)As IntegerStatic m As Integer,i A

假定有下面的过程： Function Func(a As Integer,b As Integer)As Integer Static m As Integer,i As Integer m=0 i=2 i=i+m+1 m=i+a+b Func=m End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command 1_Click() Dim k As Integer，m As Integer Dim p As Integer k=4 m=1 p=Func(k，m) Print p； p=Func(k，m) Print p End Sub 程序运行后，单击命令按钮，输出结果为()。

A．8 17

B．8 16

C．8 20

D．8 8

点击查看答案

第11题

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click（) a=0 For i=1 To 3

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

Private Sub Command1_Click()

a=0

For i=1 To 3

For j=1 To 4