更多"某人编写了下列程序，用来求10个整数(整数从键盘输入)中的最大值： P"的相关试题:
[单项选择]某人编写了下列程序，用来求10个整数(整数从键盘输入)中的最大值： Private Sub Command1_Click（ ） Dim a(10) As Integer, max As Integer For k=1 To 10 a(k)=InputBox("输入一个整数") Next k max=0 For k=1 To 10 If a(k)＞max Then max=a(k) End If Next k Print max End Sub 运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的。程序需要修改。下列修改中可以得到正确运行结果的是( )。
A. 把If a(k)>max Then 改为 If a(k)＜max Then
B. 把max=a(k)改为a(k)=max
C. 把第2个循环语句For k=1 To 10改为For k=2 To 10
D. 把max=0改为max=a(10)
[单项选择]某人编写了如下程序，用来求10个整数(整数从键盘输入)中的最大值：
Private Sub Command1_Click（ ）
Dim a(10) As Integer，max As Integer
For k=1 To 10
a(K)=InputBox("输入一个整数")
Next k
Max=0
For k=1 To 10
If a(k)＞max Then
Max＝a(k)
End If
Next k
Print max
End Sub
运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改，下面的修改中可以得到正确运行结果的是( )
A. 把If a(k)＞max Then改为If a(k)＜max Then
B. 把max＝a(k)改为a(k)＝max
C. 把第2个循环语句For k＝1 TO 10改为For k=2 TO 10
D. 把max=0改为max=a(10)
[单项选择]有如下程序，运行时从键盘输入3，输出结果是 ______。 Private Sub Command1_Click（ ） a=InputBox("请输入一个数字：") Select Case a Case Is＞2 b=a+1 Case Is＞3 b=a+2 Case Is＞4 b=a＋3 Case Is＞5 b＝a＋4 End Select Print a ＋ b End Sub
[填空题]下面函数用来求两个单精度数之和，并通过形参将结果传回，请填空。
Void sub(float x，noat y， 【19】 z)
【20】 ＝x+y；
[简答题]程序设计题：利用随机函数rand（）生成10个整型随机数，输出它们之中的最大值和最小值；如果把最大值和最小值之和的一半称为中间值，输出所有大于中间值的数。
[单项选择]以下过程的功能是从数组中寻找最大值：
Private Sub FindMax(a（ ） As Integer, ByRef Max As Integer)
Dim s As Integer, f As Integer
Dim i As Integer
s = LBound(a)
f = UBound(a)
Max =a(s)
For i = s To f
If a(i) ＞ Max Then Max = a(i)
Next
End Sub
以下关于上述过程的叙述中，错误的是( )。
A. 语句Call FindMax(a，m)可以调用该过程，其中的a是数组，m是Integer类型变量
B. For循环次数等于a数组的元素数
C. 过程末尾应该增加一条返回最大值的语句FindMax=Max
D. 参数Max用于存放找到的最大值
[单项选择]在窗体中有一个命令按钮Commandl，对应的事件代码如下：
Private Sub Commandl_nter（ ）
Dim num As Integer
Dim a As Integer
Dim b As Integer
Dim i As Integer
For i＝1 To 10
num＝InputBox(“请输入数据：”，“输入”，1)
If Int(num/2) ＝num/2 Then
a＝a+1
Else
b＝b+1
End If
Next i
MsgBox(“运行结果：a＝"& Str(
A. &:",b＝"& Str(
B. )
[填空题]在窗体上添加一个命令按钮Command1，然后编写如下事件过程。
Private Sub Command1_Click（ ）
Dim b，k
For k=1 To 6
b=23+k
Next k
MsgBox k+b
End Sub
打开窗体后，单击命令按钮，消息框数据的结果是______。
[填空题]下面运行程序后，单击命令按钮，输出的结果是 【11】 。
Private Sub Command1_Click( )
Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2#
For i=1 To 4
a(i) =i
Next i
For i=3 To 6
b(i) =i
Next i
s1=YAS(A)
s2=YAS(B)
Print"s1="；s1；"s2="；s2
End Sub
Function YAS(a( )As Integer)
Dim t#，i%
t=1
For i=LBound(A) To UBound(A)
t=t * a(i)
Next i
YAS=t
End Function
[填空题]单击窗体上的命令按钮Command1，程序的输出为 【6】 。
Private Sub Command1_Click（ ）
a="AbC"
b="dEF"
c=UCase(a) +LCase(b)
Print Asc(c)
End Sub
[填空题]执行下列程序，输入框中显示的默认字符串为 【7】 。
Private Sub Command1_Click( )
InputBox "Ok" , "输入参数", Format(" &H12" )
End Sub
[填空题]在窗体上画一个名称为Commmld1的命令按钮，编写如下事件过程
Private Sub Command1 Click（ ）
Dim a As String
a=______
For i = 1 To 5
Print Space(6-i)；Mid$(a， 6-i， 2*i-1)
Next i
End Sub
程序运行后，单击命令按钮，要求窗体上显示的输出结果为
5
456
34567
2345678
123456789
请填空。
[单项选择]程序运行后，单击命令按钮Command1时的输出结果为( )。
Private Sub Command1_Click（ ）
Dim A(10),B(5)
For i=1 TO 10
A(i)=i
Next i
For j=1 To 5
B(j)=j*20
Next j
A(5)=B(2)
Print "A(5)=";A(5)
End Sub
A. A(5)=5
B. A(5)=10
C. A(5)=20
D. A(5)=40
[单项选择]窗体上有名称为Commandl的命令按钮和名称为Text1的文本框 Private Sub Command1_Cliek（ ） Text1.Text="程序设计" Text1.SetFocus End Sub Private Sub Text1_GotFocus（ ） Text1.Text="等级考试" End Sub 运行以上程序，单击命令按钮后（）
A. 文本框中显示的是“程序设计”，且焦点在文本框中
B. 文本框中显示的是“等级考试”，且焦点在文本框中
C. 文本框中显示的是“程序设计”，且焦点在命令按钮上
D. 文本框中显示的是“等级考试”，且焦点在命令按钮上
[单项选择]在窗体上画一个名称为Command1的命令按钮，并编写以下程序：
Private Sub Command1_Click（ ）
Print fun("ABCDEFG")
End Sub
Function fun(st As String) As String
stlen=Len(st)
temp=""
Fox k=1 to stlen/2
temp=temp+Mid(st,k,1)+Mid(st,stlen-k+1,1)
Next k
fun=temp
End Function
程序运行时，单击命令按钮，则窗体上显示的是
A. ABCDEFG
B. AGBFCE
C. GFEDCBA
D. AGBFCED
[填空题]在窗体上画一个名为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click（ ）
Dim i As Integer
Sum=0
n=InputBox("Enter a number")
n=Val(n)
For i=1 To n
Sum= (13)
Next i
Print Sum
End Sub
Function fun(t As Integer) As Long
p=1
For i=1 To t
p=p*i
Next i
(14)
End Function
以上程序的功能是，计算1!+2!+3!+…+n!，其中n从键盘输入，请填空。
[单项选择]
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1 Click（ ）
Dim i As Integer,j As Integer
Dim a(10,10)As Integer
For i=1 To 3
For j＝1 To 3
a(i,j)＝(i-1)*3+j
Print a(i,j)；
Next j
Print
Next i
End Sub
程序运行后，单击命令按钮，窗体上显示的是（）。
A. 1 2 3 2 4 6 3 6 9
B. 2 3 4 3 4 5 4 5 6
C. 1 4 7 2 5 8 3 6 9
D. 1 2 3 4 5 6 7 8 9
[单项选择]
窗体上有一个名称为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
Pritn b(2,2)
End Sub
运行程序，窗体上显示的是（）。
A. 43
B. 17
C. 37
D. 23
