type x a as integer b as stringend type以上在标准模块中建立private sub command1_click()dim c(1 to 6) as xdim z as integerz = 6for i = 1 to 6 step 1c(i).a=val(inputbox("输入学生成绩","数据输入"))c(i).b=inputbox("输入学生姓名","数据输入")next ifor i = 6 to 2 step -1for j = 1 to iif c(j).a>c(j+1).a thent = c(j+1).af = c(j+1).b...
Private Sub Form_Click()Dim sname(1 To 6) As String, score(1 To 6) As IntegerClsPrint "参赛者成绩如下："For i = 1 To 6sname(i) = InputBox("请输入第" & i & "位参赛者姓名：")score(i) = Va...
