itgle.com
在窗体上画一个命令按钮，然后编写如下程序：Dim k As Longk=1Do While numLoopfun=kEnd FunctionPrivate Sub Command1_Click()Dim n As LongDim r As LongMsgBox rEnd Sub程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为( )。
题目
在窗体上画一个命令按钮，然后编写如下程序：
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，消息框显示的结果为( )。
相似考题
更多“在窗体上画一个命令按钮,然后编写如下程序: Dim k As Long k=1Do While num Loop fun=k End Func ”相关问题
-
第1题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Dim k As Integer
Private Sub Form_Load()
k=15
End Sub
Private Sub Command1_Click()
Dim b As Integer
b=b+k
k=k+1
Print k,b
End Sub
程序运行时，两次单击命令按钮Command1后，在窗体上输出的第二行是( )。
A．17 31
B．15 31
正确答案：C
解析：本题定义了一个可在本窗体的所有过程中使用的窗体级变量k，并在Form_Load事件给它赋值15。第一次单击Command1时，定义了一个变量b，然后执行两条赋值语句，执行后变量b的值为15、变量k的值为16，输出的第一行为1615。第二次单击Command1按钮时，b重新定义，初值为0，而窗体级变量k的值为16，执行两条赋值语句后，变量b的值为16、变量k的值为17，输出的第二行为1716。 -
第2题：
在窗体上画一个名为Command1的命令按钮，然后编写以下程序：
Private Sub Command1 Click（ ） Dim a(10)As Integer Fork=10 To 1 Step-1 a(k)=20-2*k Next k k=k+7 Print a(k-a(k)) End Sub 运行程序，单击命令按钮，输出结果是（ ）。
A.18
B.12
C.8
D.6
正确答案：A
A。【解析】根据for循环先计算出数组a的值以及k的当前值是1，则a(k-a(k))=a(7-a(7))=a(7-6)=a(1)=18。 -
第3题：
(29）在窗体上画一个名为Command 1的命令按钮，然后编写以下程序：
Private Sub Commandl_lick()
Dim a(10) As Integer
For k＝10 To 1 Step-1
a(k)＝20-2*k
Next k
k＝k＋7
Print a(k-a(k))
End Sub
运行程序，单击命令按钮，输出结果是
A）18
B）12
C）8
D）6
正确答案：A
-
第4题：
先在窗体上添加一个命令按钮，然后编写如下程序： Function fun(ByValnum As Long)As Long Dim k As Long k=1 num=Abs(nam) Do While num k=k*(num Mod 10) num=num\10 Loop Fun=k End Function PrivateSubCommandl_Click
A．0
B．100
C．200
D．300
正确答案：A
-
第5题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
Dim a (1 To 10)
Dim p(1 To 3)
k=5
For i=1 To 10
a(i)=i
Nexti
Fori=1 To 3
p(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
Print k
End Sub
程序运行后，单击命令按钮，输出结果是【 】。
正确答案：33
33 解析：观察程序，通过第一个以i为循环变量的循环，给数组a()进行赋值，数组a()中的各个元素的值就是其下标值。
通过第二个以i为循环变量的循环，给数组p()进行赋值：
i=1,(i)=a(i*i),p(1)=a(1)=1
i=2,p(i)=a(i*i),p(2)=a(4)=4
i=3,p(i)=a(i*i),p(3)=a(9)=9
通过第三个以i为循环变量的循环，得到变量k的值；
i=1,k=k+p(i)*2=5+p(i)*2=7
i=2,k=k+p(i)*2=7+p(2)*2=15
i=3,k=k+p(i)*2=15+p(3)*2=33
最终输出结果是：33。 -
第6题：
在窗体上画一个名为Command1的 命令按钮,然后编写以下程序 Private Sub Command1_Click（) Dim a（10) as integer For k=10 to 1 Step -1 a（k)=20-2*k Next k k=k+7 Print a（k-a（k)) End Sub 运行程序后,单击命令按钮,输出结果是 。
A．18
B．12
C．8
D．6
B 解析：考查考生对文件操作语句的掌握情况。打开随机文件的一般格式为Open'文件名'For Random As#文件号[Len=记录长度]随机文件的写操作通过Put语句来实现,其格式为:Put#文件号,[记录号],变量文件指针的定位、读取文件等。