|
|
给回答问题的学生加分后，开始计算，弹出的页面是透明的，不能覆盖张灯片，以致看不清加分。请帮我修改一下代码，设置弹出页面为不透明。
Private Sub CommandButton3_Click()
Dim txt As String
Dim i, m, n As Integer
If CommandButton3.Caption = "算" Then
txt = "小组得分：" & Chr(13) & Chr(10)
For i = 1 To zucount
m = i Mod 4
If m = 0 Then
txt = txt + " " + CStr(i) + "组" + CStr(zus(i)) + "分" & Chr(13) & Chr(10)
Else
txt = txt + " " + CStr(i) + "组" + CStr(zus(i)) + "分"
End If
Next
txt = txt & Chr(13) & Chr(10) & "个人得分：" & Chr(13) & Chr(10)
n = 1
For i = 0 To stucount
If studefen(i) > 0 Then
m = n Mod 3
If m = 0 Then
txt = txt + " " + Students(i, 1) + "：" + CStr(studefen(i)) + "分" & Chr(13) & Chr(10)
Else
txt = txt + " " + Students(i, 1) + "：" + CStr(studefen(i)) + "分"
End If
n = n + 1
End If
Next
Label2.Caption = txt
Label2.Visible = True
CommandButton3.Caption = "藏"
Else
Label2.Visible = False
CommandButton3.Caption = "算"
End If
End Sub
复制代码
课堂随机点名计分课件模板.rar
(144.79 KB, 下载次数: 15)
|
|
