单项选择题

标准模块中有如下程序代码：
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之间
单项选择题
下面的程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click() Dim a(1 To 6)As Integer Dim min1%,i%,j%,n%,t%,k% a(1)=8:a(2)=6:a(3)=9:a(4)=3:a(5)=2:a(6)=7 n=6 For i=1 To n-1 min 1=i For j=i+1 To n If a(j)＜a(min1)Then min1=j Next j t=a(i):a(i)=a(min1):a(min1)=t Next i For i=1 To n Print a(i) Next i End Sub
A．9 8 7 6 3 2
B．2 3 6 7 8 9
C．9 8 7 6 3
D．2 3 6 7 8
相关试题