在浓KOH醇溶液中,CH3CH2CH(Cl)CH(CH3)2脱去氯化氢后的主要产物是()。
第1题:
把窗体的KeyPreview属性设置为Tree,然后编写如下事件过程 Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) Print Chr(KeyAscii+2) End Sub 程序运行后,按键盘上的“A”键,则在窗体上显示的内容是______。
A. A
B.B
C.C
D.D
第2题:
在通用声明中定义a,在窗体中添加一个命令按钮Command1,编写如下程序代码:
DimaAsInteger
Subtest()
a=a+1:b=b+1:c=c+1
Print"Sub:";a;",";b;",";c
EndSub
PrivateSubCommand1_Click()
a=2:b=3:c=4
Calltest
Calltest
EndSub
程序运行后,单击命令按钮,窗体中将显示( )
A.Sub:3,4,5Sub:4,5,6
B.Sub:2,3,4Sub:2,3,4
C.Sub:3,1,1Sub:4,1,1
D.Sub:1,1,1Sub:1,1,1
第3题:
( 14 )执行以下程序后输出的是
Private Sub Command1_Click()
Ch$= ” AABCDEFGH ”
Print Mid(Righ(ch$,6),Len(left(ch$,4)),2)
End Sub
A)CDEFGH
B)ABCD
C)FG
D)AB
第4题:
下列程序的功能是把文件C:\a1.txt复制成C:\a2.txt,请填空。
Private Sub Form. C1ick()
Dim ch As String
Open "C:\a1.txt" For【 】
Open "C:\a2.txt" For【 】
Do While Not【 】
ch=Input(1,10)
Print 20,ch;
Loop
Close 10,20
End Sub
第5题:
假设(AL)=74H,(CH)=38H,依次进行SUB AL,CH指令和DAS指令后,AL的值是( )。
A.0AEH
B.36H
C.3CH
D.14H
第6题:
把窗体的KeyPreview属性设置为True,然后编写如下事件过程
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr(KeyAscii)
KeyAscii = Asc(UCase(ch))
Print Chr(KeyAscii + 2)
End Sub
程序运行后,按键盘上的“A”键,则在窗体上显示的内容是( )。
A.A
B.B
C.C
D.D
第7题:
下列程序实现的功能是:在窗体上单击时,将在窗体上输出c:=a1.txt文件中的所有小写字母。
Private Sub Form. Click()
Dim Ch As String * 1
Open "c:\a1.txt" For Input As 10
Do While【 】
Ch= Input(1, 10)
If 【 】Then
Print Ch;
End If
Loop
【 】
End Sub
第8题:
( 30 )下面程序的输出结果是
Private Sub Command1_Click()
ch$= ” ABCDEF ”
proc ch
Print ch
End Sub
Private Sub proc(ch As String)
S= ””
For k=Len(ch) To 1 Step-1
s=s&Mid(ch,k,1)
Next k
ch=s
End Sub
A ) ABCDEF
B ) FEDCBA
C ) A
D ) F
第9题:
假定(AL)=85H,(CH)=29,依次执行SUB AL,CH指令和DAS指令后,AL的值是( )。
A.AEH
B.56H
C.5CH
D.14H
第10题:
执行下面的程序,单击命令按钮后,窗体中的输出结果是 ______。 Private Sub Cotomand1_Click() Ch$="Welcome Home!" a=Len(ch$) For i= 1 To a b$ = Mid(ch$, i 1) If b$ = "m" Then m = m + 1 Next 1 Print m End Sub
A.2
B.3
C.1
D.0