如下算法的功能是：寻找数组元素a(1)到a(10)中的最小值。处应填写的语句是（） ① Fori＝2to10Ifa(i)<mint_刷题宝

题干

如下算法的功能是：寻找数组元素a(1)到a(10)中的最小值。处应填写的语句是（）
①
For i＝2 to 10
If a(i)<min then
min＝a(i)
end if
Next i

A． a(1)＝min

B． a(1)＝0

C． min＝0

D． min＝a(1)

上一题下一题 0.99难度选择题更新时间:2017-05-05 08:47:58

答案(点此获取答案解析）

同类题1

运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生“类型不匹配”错误时所执行的语句是（）

Private Sub Command1_Click()
Dim a As String, b As String, c As Integer
a = "Good" '①
b = "bye" '②
c =__________1__________'③
Text1.Text =" a" + b + c '④
End Sub

同类题2

窗体上有标签LABEL1,有两个命令按钮，COMMAND1的标题是“变大”，COMMAND2的标题是“变小”。单击“变大”按钮，LABEL1中的字变大一倍，单击“变小”按钮，LABEL1中的字变小一倍。
PRIVATE   SUB   COMMAND1-CLICK(   )
________
END   SUB
PRIVATE   SUB   COMMAND2-CLICK(   )
________
END SUB

同类题3

.有如下VB程序段：
x=-3
Do While x<0
x=x+2
Loop
该程序段运行后，变量x的值是：

同类题4

如果x=4，那么以下运算结果为True的表达式是（）

A．(x<=4)and(x>=6)

B．(x>4)Or(x>=6)

C．(x>="4)and" not(x>=6)

同类题5

下列程序的功能是从键盘上任意输入一个数，判断这个数是正数，负数，还是零，并输出判断结果。程序中加框处有错误，请改正。
Private sub Command1_Click()
Dim a As Single
Dim py As String
a=

（1）
If a>0 Then py =”正数”
If a="0" Then py=”零”
If a<0 Then py=”负数”

（2）
End Sub
（1）_____________________
（2）_____________________

相关知识点