[单项选择]编写如下事件过程和函数过程：
Private Sub Form_Chck（　）
DimBum(1 To 6)As Single
num(1)=103:num(2)=190:num(3)=0
Bum(4)=32:num(5)=-56:num(6)=100
Print
Pdnt p2(6,hum（　）)
End Sub
Private Function p2(ByVal n As Integer,number（　）As Single)As Integer
p2=number(1)
Forj=2 Ton
lfnumber(j)＜p2 Thenp2=number(j)
Next j
End Function
程序运行后窗体上显示的值是( )。
A. -56
B. 0
C. 103
D. 190

更多"编写如下事件过程和函数过程： Private Sub Form_Ch"的相关试题:

[单项选择]编写如下事件过程和函数过程：
Private Sub Command1_Click（　）
Dim num(1 To 6)As Single
num(1)=103:num(2)=190:num(3)=0
num(4)=32:num(5)=-56：num(6)=100
Print
Print p2(6，num（　）)
End Sub
Private Function p2(By Val n As Integer, number（　） As Single) As Integer
p2=number(1)
For j=2 To n
If number(j)＜p2 Then p2=number(j)
Next j
End Function
程序运行后，在窗体上输出( )。
A. -56
B. 0
C. 103
D. 190

查看答案

[单项选择]编写如下事件过程和函数过程：
Private Sub Command1_Click（　）
Dim num(1 To 6) As Single
num(1)=103: num(2)=190: num(3)=0
hum(4)=32:num(5)=-56: num(6)=100
Print
Print p2(6,num（　）)
End Sub
Private Function p2(ByVal n As Integer, number（　） As Single) As Integer
p2=number(1)
For j=2 To n
If number(j)＜p2 Then p2=number(j)
Next j
End Function
程序运行后，在窗体上输出( )。
A. -56
B. 0
C. 103
D. 190

查看答案

[单项选择]编写下列事件过程和函数过程： Private Sub Commandl Click（　） Dim num(1 To 6)As Single num(1)=103:num(2)=190:num(3)=0 num(4)=32:num(5)=-56:num(6)=100 Print Print p2(6,num（　）) End Sub Private Function p2(ByVal n As Integer,number（　）As Single)As Integer p2=number(1) For j=2 To n If number(j)＜p2 Then p2=number(j) Next j End Function 程序运行后，在窗体上输出( )。
A. -56
B. 0
C. 103
D. 190

查看答案

[单项选择]编写下列事件过程和函数过程：

Private Sub Commandl Click（　）

Dim num(1 To 6)As Single

num(1)=103:num(2)=190:num(3)=0

num(4)=32:num(5)=-56:num(6)=100

Print

Print p2(6,num（　）)

End Sub

Private Function p2(ByVal n As Integer,number（　）As Single)As Integer

p2=number(1)

For j=2 To n

If number(j)＜p2 Then p2=number(j)

Next j

End Function

程序运行后，在窗体上输出( )。
A. -56
B. 0
C. 103
D. 190

查看答案

[单项选择]编写如下事件过程：
Private sub sub1 (ByVal x1 As String, y1 As String)
Dim xt As String
Dim i As Integer
i = Len(x1)
Do While i＞= 1
xt = xt + Mid(x1, i, 1)
i=i-1
Loop
y1 = xt
End Sub
Private Sub Form Click（　）
Dim s1 As String, s2 As String
s1= "teacher"
sub1 s1, s2
Print s2
End Sub
程序运行后，单击窗体，则窗体上显示的内容是
A. rehcaet
B. tahreee
C. themee
D. eerthea

查看答案

[单项选择]编写如下事件过程：
Option Explicit
Private Sub Form_Click（　）
Dim Str As String， I As Integer
Open "examp" For Output As 1
For I=1 To 5
Str=Chr(I+64)
Print #1，Str；
Next I
Close 1
Open”examp’，For lnput AS 2
Str=Input(10，#2)
Print Str；
Close 2
End Sub
程序运行后，单击窗体，则窗体上显示的内容是
A. ABCDE
B. 96
C. 65
D. abcde

查看答案

[单项选择]编写如下事件过程: Private Sub Form_ MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) If Shift = 6 And Button = 2 Then Print “Hello” End If End Sub 程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下______ 操作。
A. 同时按下Shift键和鼠标左按钮．
B. 同时按下Shift键和鼠标右按钮
C. 同时按下Ctrl、Alt键和鼠标左按钮
D. 同时按下Ctrl、Alt键和鼠标右按钮

查看答案

[单项选择]编写如下事件过程：
Private Sub Form KeyDown (KeyCode As Integer, Shift As Integer)
Print Chr (KeyCode)
End Sub
Private Sub Form_KeyPress( KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
在一般情况下(即不按住Shift键和锁定大写键时)运行程序，若按“T”键，则程序输出的结果是
A. T
B. t
C. T
D. t

查看答案

[单项选择]编写如下事件过程：
Private Sub Form MouseDown(Button As Integer，Shift As Integer，X As Single， Y As Single)
If Shift=6 And Button=2 Then
Print "BBBB"
End If
End Sub
程序运行后，为了在窗体上输出“BBBB”，应执行的操作为
A. 同时按下Shift键和鼠标左键
B. 同时按下Ctrl、Alt键和鼠标右键
C. 同时按下Shift键和鼠标右键
D. 同时按下Ctrl、Alt键和鼠标左键

查看答案

[单项选择]编写如下事件过程：
Option Base 1
Private Sub Form Click（　）
Dim x1（　）As Integer
Dim i As Integer
Dim s As Integer
ReDim x1(3)
For i = 1 To UBound(x1)
x1(i)=i + 1
Next i
Call sub1(x1)
For i = 1 To UBound(x1)
s = s + x1(i)
Next i
Print s
End Sub
Private Sub sub1(n（　）As Integer)
Dim i As Integer
ReDim Preserve n(5)
For i = 3 To 5
n(i)=n(i-1)*2
Next i
End Sub
程序运行后，单击窗体，则窗体上显示的内容是
A. 6
B. 12
C. 24
D. 47

查看答案

我来回答:

提交