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

[主观题]

（31 ）在窗体上画 1 个命令按钮，名称为 Command1 ，然后编写下列程序：Dim Flag As BooleanPrivate

（31 ）在窗体上画 1 个命令按钮，名称为 Command1 ，然后编写下列程序：

Dim Flag As Boolean

Private Sub Command1_Click()

Dim intNum As Integer

intNum=InputBox(" 请输入 :")

If Flag Then

Print f(intNum)

End If

End Sub

Function f(X As Integer)As Integer

If X＜10 Then

Y=X

Else

Y=X+10

End If

f=Y

End Function

Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)

Flag=True

End Sub

运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入 5 ，则程序的输出结果为（）。

A ） 0

B ） 5

C ） 15

D ）无任何输出

查看答案

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

您可能会需要：

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

安装赏学吧APP，拍照搜题省时又省心！

更多“（31 ）在窗体上画 1 个命令按钮，名称为 Command…”相关的问题

第1题

（31 ）在窗体上画 1 一个名称为 Command1 的命令按钮，并编写以下程序Private Sub Command1_Click

（31 ）在窗体上画 1 一个名称为 Command1 的命令按钮，并编写以下程序

Private Sub Command1_Click （）

Print fun （“ ABCDEFG ” ）

End Sub

Function fun （st As String ） As String

stlen=Len （st ）

temp= ””

For k

temp=temp=Mid(st,k,l)+Mid(st,stlen-k+1 ， 1)

Next k

fun=temp

End Function

程序运行时，单击命令按钮，则窗体上显示的是（）

A ） ABCDEFG

B ） AGBFCE

C ） GFEDCBA

D ） AGBFCED

点击查看答案

第2题

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Dim k As IntegerPrivate Sub Form_L

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Dim k As Integer Private Sub Form_Load() k=15 End Sub Private Sub Command1_Click() Static b As Integer b=b+k k=k+1 Print k，b End Sub 程序运行时，两次单击命令按钮Command1后，在窗体上显示的第二行是()。

A．17 31

B．15 31

C．17 16

D．2 1

点击查看答案

第3题

在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click_（)Fo

在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click_() For n=1 To 20 If n Mod 3＜＞0 Then m=m+n\3 Next n print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是 ______。

A．15

B．18

C．21

D．24

点击查看答案

第4题

（23 ）在窗体上画 1 个名称为 Command1 的命令按钮，然后编写下列事件过程：Private Sub Command1_

（23 ）在窗体上画 1 个名称为 Command1 的命令按钮，然后编写下列事件过程：

Private Sub Command1_Click()

a=0

For i=1 To 2

For j=1 To 4

If j Mod 2＜＞0 Then

a=a-1

End If

a=a+1

Next j

Next i

Print a

End Sub

程序运行后，单击命令按钮，输出结果是（）。

A ） 0

B ） 2

C ） 3

D ） 4

点击查看答案

第5题

在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_ Click（)c=

在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_ Click() c=1234 c1=Trim(str(c)) For i=1 To 4 Print ______ NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234则在横线外应填入的内容为______。

A．Right (c1，i)

B．Left(c1，i)

C．Mid(c1，i，1)

D．Mid(c1，i，i)

点击查看答案

第6题

在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_click（) Di

在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a＜=0 Print s；a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容，是 ______。

A．79

B．340

C．97

D．死循环

点击查看答案

第7题

在窗体上画—个名称为Command1的命令按钮，然后编写如下代码：Option Base 1Private Sub Command1_C

在窗体上画—个名称为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click() d=0 c=10 x=Array(10，12，21，32，24) For i=1 To 5 If x(i)＞c Then d=d+x(i) c=x(i) Else d=d-c End If Next I Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为______。

A．89

B．99

C．23

D．77

点击查看答案

第8题

在窗体上画—个命令按钮（名称为Command1)，并编写如下代码：Function Fun1 （ByVala As Integer, b A

在窗体上画—个命令按钮(名称为Command1)，并编写如下代码：Function Fun1 (ByVala As Integer, b As Integer)As Integer Dim t As Integer t=a-b b=t+ a Fun 1=t+ bEnd FunctionPrivate Sub Command1_ Click() Dim x As Integer x=10 Print Fun1(Fun1 (x,(Fun1(x，x-1))),x-1)End Sub程序运行后，单击命令按钮，输出结果是 ______。

A．10

B．0

C．11

D．21

点击查看答案

第9题

（33 ）在窗体上画 1 个名称为 Command1 的命令按钮，然后编写如下事件过程Option Base 1Pribate S

（33 ）在窗体上画 1 个名称为 Command1 的命令按钮，然后编写如下事件过程

Option Base 1

Pribate Sub Command1_Click （）

Dim a （5.5 ） As Integer

For i=1 To 5

For j=1to5

a （i+j ） *5\10

Next j

Next i

s=0

For i=1 To 5

s=s+a （i,i ）

Next i

Print s

End Sub

程序运行后，单击命令按钮，输出结果是（）

A ） 15

B ） 13

C ） 11

D ） 9

点击查看答案

第10题

在窗体上画—个命令按钮和—个文本框，名称分别为Command1和Text1，然后编写如下程序：Private Sub Co

在窗体上画—个命令按钮和—个文本框，名称分别为Command1和Text1，然后编写如下程序： Private Sub Command1_Click() a=InputBox("请输入日期(1～31)") t="旅游景点："&IIf(a＞0 And a＜=10，"长城"，"")&_ IIf(a＞10 And a＜=20，"故宫"，"")&IIf(a＞20 And a＜=31，"颐和园"，"") Text1.Text=t End Sub 程序运行后，如果从键盘上输入16，则在文本框中显示的内容是

A．旅游景点：长城故宫

B．旅游景点：长城颐和园

C．旅游景点：颐和园

D．旅游景点：故宫

点击查看答案