单项选择题

在窗体上画一个名为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
Dim Arr
Arr=Array(1，2，3，4，5)
j = 1
For i=5 To 1 Step-1
S=S+Arr(i)*j
j=j*10
Next
Print S
End Sub
程序运行后，单击命令按钮，输出结果为( )。

A．54321
B．123
C．12345
D．345
<上一题 目录 下一题>
热门 试题

单项选择题
单击命令按钮时，下列程度段的执行结果为( )。 Pfivate Sub Command1_Click() Dima As Integer，b As Integer, c As Integer a=2:b=4:c=6 Call S1(a，b) Print a= ；a； b= ；b； c= ；c Call S2(a，b) Print a= ；a； b= ；b； c= ；c； End Sub Private Sub S1(x As Integer, y As Integer) Dim c As Integer x=2*x:y=y+2:c=x+y End Sub Sub S2(x As Integer, By Val y As Integer) Dim e As Integer x=2*x:y=y+2:e=x+y End Sub
A．a=4 b=6 c=6
a=4 b=6 c=6
B．a=8 b=6 c=6
a=8 b=6 c=6
C．a=4 b=6 c=6
a=8 b=6 c=6
D．a=8 b=6 c=6
a=4 b=6 c=6
单项选择题
在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件，要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程，请选择正确的语句完成程序( )。 Private Type student StuName As String*10 StuGrade As String*10 StuAge As Integer End Type Private Sub Form_Click() Dim s As student Open c： student.txt For Random As #1 Len=Len(s) For i=1 To 1 s.StuName=InputBox( 请输入姓名 ) s.StuGrade=InputBox( 请输入年级号 ) s.StuAge=Val(InputBox( 请输入年龄 )) Next i Close #1 End Sub
A．Print #1，s
B．Print #1，i
C．Put #1，，s
D．Put #1，，i
相关试题