单项选择题

在窗体上画一个命令按钮，其名称为Command1。程序运行后，单击命令按钮，输出结果是( )。
Private Sub p1 (n As Integer)
For i=n To 1 Step=1
x=String(i, "*")
Print x
Next i
End Sub
Private Sub Command1_Click()
p1(3)
End Sub

A．***
**
*
B．***
***
C．*
*
*
D．******

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个名为Text1的文本框和一个名为Labell的标签，再画四个名为Opl的单选按钮控件数组，其Index属性按季度顺序为0～3，如图左所示。在文件Sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击一个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。如图右所示单击“第二季度”单选按钮所产生的结果。请选择可在空白处填写的合适语句( )。 Option Base 1 Dim sales(12)As Long Private Sub Form Load() Open C: sales. txt For Input As#1 For k=1 To 12 Input #1, sales(k) Nextk Close#1 End Sub Private Sub______(Index As Integer) Dim sum As Long, k As Integer, month As Integer sum=0 month=Index* ______ For k=1 To 3 month=month+1 sum=sum+sales(month) Nextk Labell. Caption=______，Caption ＆销售总额： Text1=Sum End Sub

单项选择题

窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序： DimY As Integer Private Sub Command1.Click() Dim X AS Integer x=2 Text1. Text=p2(p1(X), Y) Text2. Text=p1(x) End Sub Private Function p1(X As Integer)As Integer x+x+y:y=x+y p1=x+y End Function Private Function p2(X As Integer, Y As Integer)As Integer p2=2*x+y End Function 当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为( )。

A．2 4
2 4
B．2 4
4 8
C．4 4
8 8
D．10 10
58 58

相关试题