单项选择题

下面程序运行后，语句“Print i”执行的次数是( )。
Private Sub Form_Click()
Dim i As Integer,j As Integer
i=0
Do
i=i+1
For j=10 To 1 Step-3
i=i+j
Print i
Next j
Loop While i＜50
End Sub

A．4
B．8
C．12
D．16

<上一题目录下一题>

热门试题

单项选择题

标准模块中有如下程序代码： Public x As Integer,Y As Integer Sub TempSub() x=10:y=20 End Sub 在窗体上有1个命令按钮，并有如下事件过程： Private Sub Command1 Click() Dim x As Integer Call TempSub x=x+100:y=y+100 Print x;y End Sub 运行程序后单击命令按钮，窗体上显示的是( )。

A．110 100
B．100 100
C．100 120
D．110 120

单项选择题

设工程中有2个窗体：Form1、Form2，Form1为启动窗体。Form2中有菜单，其结构如表。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后，隐藏Form1，显示Form2。若口令为“XSLNCER”，所有菜单项都可见：否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写如下程序： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then If Tex 1.Text= XSLNCER Then Form2.input.Visible=True Else Form2.input.Visible=False End If End If Form1.Hide Form2.Show End Sub 菜单结构标题名称1 级别成绩管理 mark 1 成绩查询 Query 2 成绩录入 Input 2 程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是( )。

A．把2个Form2.input.Visible中的“Form2”删去
B．把Form1中Text1文本框及相关程序放到Form2窗体中
C．把If KeyAsii=13 Then改为If KeyAscii="XSLNCER"Then
D．把Form1.Hide、Form2.Show两行移动到2个End If之间

相关试题