Form2.input.Visible=False End If End If
Form1.Hide Form2.Show End Sub
程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2,程序需要修改。下面修改方案中正确的是____B____。
A．把Form1中Text1文本框及相关程序放到Form2窗体中 B．把Form1.Hide、Form2.Show两行移到2个End If之间 C．把If KeyAscii=13 Then改为If Key Ascii=\D．把2个Form2.input.Visible中的\删去
217．在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，再编写如下程序：
Dim ss As String
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii)<>\=ss+Chr(KeyAscii) End Sub
Private Sub Command1_Click()
Dim m As String,i As Integer For i=Len(ss)To 1 Step-1
m=m+Mid(ss,i,1) Next
Text1.Text=UCase(m) End Sub
运行程序后，在文本框中输入\，并单击命令按钮，则文本框中显示的是____D____。
A．NUMBER 100 B．REBMUN C．REBMUN l00 D．001 REBMUN 218．设有以下程序：
Private Sub Form_Click() x=50
For i=1 To 4
y=InputBox(\请输入一个整数\ y=Val(y)
If y Mod 5=0 Then a=a+y x=y ElSe
a=a+x End If Next i Print a End Sub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为___A_____。
A．100 B．50 C．120 D．70
219．某人为计算n！(0 Private Function fun(n As Integer)As Long Dim p As Long p=1 For k=n-1 To 2 Step-1 p=p*k Next k fun=p End Function 在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3种是正确的，错误的方案是____B____。 A．把p=1改为p=n B．把For k=n-1 To 2 Step-1改为For k=1 To n-1 C．把For k=n-1 To 2 Step-1改为For k=1 To n D．把For k=n-1 To 2 Step-1改为For k=2 To n 220．窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下： Private sub Text1_KeyUp(Keycode As Integer,Shift As Integer) Dim c As String c=UCase(Chr(Keycode)) Text2.Text=Chr(Asc(c)+2) Endsub 当向文本框Text1中输入小写字母a时，文本框Text2中显示的是____C____。 A．A B．a C．C D．c 221．窗体上有一个名称为Command1的命令按钮，其单击事件过程如下： Private Sub Command1_Click() Dim a,b(2,3) As Integer a=Array(3,7,5,11,31,43,17,62,9,23,37,41) i=0 Do While i<=UBound(a) For j=0 To 2 For k=0 To 3 b(j,k)=a(i) i=i+1 Next Next Loop Print b(2,2) End Sub 运行程序，窗体上显示的是___C_____。 A．43 B．17 C．37 D．23 222．有如下程序： Private Type stu X As String Y As Integer
相关推荐：
loading