填空题

在窗体上画一个名称为Command1的命令按钮。编写如下事件过程：
Private Sub Command1_Click()
Dim a As String
A= 【6】
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
请填空。

【参考答案】

"123456789\

<上一题目录下一题>

热门试题

填空题

在窗体上画一个名为Command1的命令按钮。下列程序的功能是：从输入对话框输入一个正整数n。用随机函数产生n个1～100范围的随机数，然后求出去掉一个最大数和最小数的平均数。根据题意，请完善下列程序： Private Sub Command1_Click() Dim ave As Single, max As Integer, i As Integer, n As Integer Dim min As Integer, Sum As Integer, s As String Dim t As Integer s=InputBox( 输入一个正整数: ) n=Val(s) If n＞0 Then max=n: min=n: Sum=0 For j=1 To n t= 【9】 Print t; Sum=Sum+t If t＜min Then min=t Elself max＜t Then max=t End If Next j 【10】 ave=Sum n MsgBox 平均值= +Str(ave)，，去掉最大数和最小数后 End If End Sub

单项选择题

在窗体上画一个名称为Command1的命令按钮、一个名称为Label1的标签，然后编写如下事件过程； Private Sub Command1_Click() s=0 For i=1 to 15 x=2*i-1 If x Mod 3=0 Then s=s+1 Next i Label1. Caption=s End Sub 程序运行后，单击命令按钮，则标签中显示的内容是______。

A．1
B．5
C．27
D．45

相关试题