【单选题】
下面正确使用动态数组的是
A.Dim arr() As Integer …ReDim arr(3,5)
B.Dim arr() As Integer … ReDim arr(50)As String
C.Dim arr() … ReDim arr(50) As Integer
D.Dim arr(50) As Integer … ReDim arr(20)
正确答案
正在加载...
答案解析
正在加载...
根据网考网考试中心的答案统计,该试题:
57%的考友选择了A选项36%的考友选择了B选项3%的考友选择了C选项4%的考友选择了D选项
你可能感兴趣的试题
第1题:
下列程序代码实现生成20个0~100之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。清选择正确的程序段(),完成程序。 Pnvae SubCommand1_Click()Dim arr(1 To 20) For i=1 To 20 arr(i)______ Text1.Text=Text1.Text & arr(i)&Chr(13)&Chr(10) Next i Sum=0 ForEach X______ IfX>50 Then Print Tab(20);X Sum=Sum+X End IfNext XPrint Tab(20);"Sum=";SumEnd Sub
A、Int(Rnd*99+1)In arr
B.Int(RnIn arr
C.Int(Rnd*99+1)In arr()
D、Int(RnIn arr()
第2题:
在C盘当前文件夹下建立一个名为SDat.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(SmEng)。则在下列横线处合适的语句是()。 Private Sub Form_Click() Open"C、\SDat.txt"For OutputAS 1 For i=1 To 5 SmNo=InputBox("请输入学号") StuName=InputBox("请输入姓名") StuEndg=Val(InputBox("请输入英语成绩")) ______ Next iClose #1End Sub
A、Input #1,StuNo,StuName,StuEndg
B.Put #1,StuNo,StuName,StuEndg
C.Write #1,StuNo,StuName,StuEndg
D、Get #1,StuNo,StuName,StuEndg
第3题:
有下列函数过程: Function fun1ByVal xAs Integer,ByVal yAs Integer)As Integer Do While y<>0reminder=x MOd yx=yy=reminder Loop fun1=xEnd Function 在下列按钮单击事件中调用该函数,则该程序的运行结果是()。 Private SubCommand1_Click() Dim aAs Integer Dim bAs Integer a=100 b=25 x=fun1(a,b) Print x End Sub
A、0
B.25
C、50
D.100
第4题:
在窗体上画一个名称为Text1的文本框,然后画三个单选按钮,并用这三个单选按钮建立一个控件数组,名称为Option1,程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换,请选择空白处合适的语句()。 Private Sub Option1_Click(IndexAS Integer) SelectCase______ Case 0 a="宋体" Case 1 a="黑体" Case 2 a="楷体 GB2312" End SelectText1.______=aEnd Sub
A、Option Text
B、Index Text
C.Index Font
D.Option Font
第5题:
下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。 Private TypeAng KAs Integer SinxAs SingleCosxAs SingleEnd TypeDim KscAsAng Private Sub Form_Click()Dim YAs SingleDim iAs IntegerDim KscAsAng Open______ Y=3.14159/180 For i=1 To 90 KsC、K=i KsC、Sinx=Sin(i*Y) KsC、Cosx=Cos(i*Y) ______ Next i Close #2End Sub
A、"..\Data1.txt"For RandomAs #1 Len=10 Put #1,i,Ksc
B."..\Data1.txt"For RandomAs #1 Len=10 Put #1,Y,Ksc
C."..\Data1.txt"For RandomAs #