以下定义数组或给数组元素赋值的语句中，正确的是
A: Dim x%(2) x(1)="等级考试"
B: Dim x(3)， y(3)As Integer x(0)=1：y=x
C: Dim x x=Array(0，1，2)
D: Dim x(3)As Integer x=Array(0，1，2)
A: Dim x%(2) x(1)="等级考试"
B: Dim x(3)， y(3)As Integer x(0)=1：y=x
C: Dim x x=Array(0，1，2)
D: Dim x(3)As Integer x=Array(0，1，2)
举一反三
- 以下定义数组或给数组元素赋值的语句中，正确的是 A: Dim a As Variant B: a=Array(1，2，3，4，5) C: Dim a (10) As Integer D: a=Array(1，2，3，4，5) E: Dim a%(10) F: a(1)="ABCDE" G: Dim a (3)，b(3) As Integer H: a(0)=0 I: a(1)=1 J: a(2)=2 K: b=a
- 下面程序片段中有错误：Sub pric() Public x As Integer x = Array(1, 2, 3, 4, 5) ……End Sub为了避免出错，正确的修改方案是_______________。 A: 把Public x As Integer 改为Public x As Variant B: 把Public x As Integer 改为Dim x(5) C: 把Public x As Integer 改为Static x D: 把x = Array(1, 2, 3, 4, 5)改为x = Array(0, 1, 2, 3, 4)
- 使用数组x输出10个1-100之间的随机整数(包括1和100),下列命令中正确的是:( ) A: Dim x(9) As Integer For i = 1 To UBound(x) x(i) = Int(Rnd() * 100 + 1) Print x(i); Next B: Dim x(9) As Integer For i = 0 To UBound(x) x(i) = Rnd(10) Print x(i); Next C: Dim x(9) As Integer For i = 0 To UBound(x) x(i) = Int(Rnd() * 100 ) Print x(i); Next D: Dim x(9) As Integer For i = 0 To UBound(x) x(i) = Int(Rnd() * 100 + 1) Print x(i); Next
- 下列数组说明语句正确的是 A: Dim g(0，-5)As Single B: Dim h(100 To 100，100)As String C: Dim x(5)As Integer D: ReDim x(10)As Integer E: Dim y() F: ReDim y
- 完成以下功能：计算分段函数完成程序。 x2+1 (x<0) y= 2x+1 (0≤x<1) 3x3 (x≥1) Private Sub Command1_Click() Dim y As Single, x As Single x = InputBox("请输入x的值") If x（） Then y = x * x + 1 （） x < 1 Then y = 2 * x + 1 Else y = 3 * x ^ 3 End If Print x; y End Sub