题目内容

在窗体上画一个命令按钮,名称为Commandl。然后编写如下程序:
Private Sub Commandl_Click()
For I=1 T0 2
For J=1 To I
Print String(I,″Hello″);
Next J
Print
Next I
End Sub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是

A. H HH HH
B. H HHHH
C. HHHHH
D. H HH HHHH

查看答案

搜索结果不匹配？点我反馈

更多问题

Option Base 1
Private Sub Command1_Click()
Dim a As Variant
a=Array(1,2,3,4)
j=1
For i=4 To 1 Step -1
s=s+a(i)j
j=j10
Next
Print s
End Sub

A. 4321
B. 1234
C. 34
D. 12

如果在c盘当前文件夹下已存在名称为studata.dat的顺序文件,那么执行语句Open"c:\studata."For Append As #1之后，将

A. 删除文件中原有内容
B. 保留文件中原有内容,并在文件尾填加新内容
C. 保留文件中原有内容,并在文件头填加新内容
D. 以上均不对

在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:
Private Sub Form_load()
Text1.Text=″″
Text1.SetFocus
For i=1 To 9
Sum=Sum+i
Next i
Text1.Text=Sum
End Sub
上述程序的运行结果是

A. 在文本框Text1中输出45
B. 在文本框Text1中输出0
C. 出错
D. 在文本框Text1中输出不定值

有如下函数过程:
Function Fun(By Val x As Ingeger, ByVal y As Integer)As Integer
Do While … y ＜＞0
reminder=x Mod y
x=y
y=reminder
Loop
Fun=x
End Function
以下是调用该函数的事件过程,该程序的运行结果是
Private Sub Command1
Dim a As Integer
Dim b As Integer
a=100:b=25
x=Fun(a,b)
Print x
End Sub

A. 0
B. 25
C. 50
D. 100