A.7
B.18
C.27
D.10
第1题
Option Base 1
Dim sales(12)As Long
Private Sub Fo rm Load( )
Open"C:\sales.txt"For Input As#1
For k=1 To 12
Input#1,sales(k)
Nextk
Close#1
End Sub
Private Sub (Index As Integer)
Dim sum As Long,k As Integer,month As Integer
sum=0
month=In&x*
For k=1 To 3
month=month+1
sum=sum+sales(month)
Next k
Label1.Caption=________.Caption&"销售总额:"
Text1=Sum
End Sub
A.Op1_Click 3 Op1(Index)
B.Op1_Click 0 Option1(Index)
C.Option1_Click l Op1(Index)
D.Option1_Click 2 Option1(Index)
第2题
A.Op1_Click 3 Op1(Index)
B.Op1_Click 0 Option1(Index)
C.Option1_Click l Op1(Index)
D.Option1_Click 2 Option1(Index)
第3题
A.Op1_Click 3 Op1 (Index)
B.Op1_Click 0 Option1 (Index)
C.Option1_Cliek 1 Op1 (Index)
D.Option1_Click 2 Option1 (Index)
第4题
Option Base 1
Dim sales(12) As Long
Private Sub Form_Load()
open"c:\sales.txt"For Input As #1
For k=1 To 12
Input #1,sales(k)
Next k
Close #1
End Sub
Private Sub ______ (Index As Integer)
Dim sum As Long,k As Integex,month As Integer
sum=0
month=Index*______
For k=1 To 3
month=month+1
sum=sum+sales(month)
Next k
Label1.Caption=______.Caption &"销售总额:"
Text1=sum
End Sub
A.Op1_Click 3 Op1(Index)
B.Op1_Click 0 Option1(Index)
C.Option1_Cliek 1 Op1(Index)
D.Option1_Click 2 Option1(Index)
第5题
Option Base 1 Dim sales(12) As Long Private Sub Form_Load() Open "c:\sales.txt" For Input As #1 For k=1 To 12 Input #1,sales(k) Next k Close #1 End Sub Private Sub______(Index As Integer) Dim sum As Long,k As Integer, month As Integer sum=0 month=Index * ______ For k=1 To 3 month=month+1 sum=sum+sales(month) Next k Label1.Caption=______.Caption & "销售总额:" Text1=sum End Sub
A.Opl_Click 3 Op1(Index)
B.Opl_Click 0 Optionl(Index)
C.Optionl_C1ick 1 Opl(Index)
D.Optionl_C1ick 2 Optionl(Index)
第6题
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!