VB二级上机答案

11 |

0 | 2008-5-6 10:32:00 | 显示全部楼层 |阅读模式

不知道原窗体代码随便写一个Private Sub Form_Click()str1 = "报名参加"str2 = ""If Ch1.Value Then
str2 = str2 & Ch1.CaptionEnd IfIf Ch2.Value Then
str2 = str2 & Ch2.CaptionEnd IfIf Ch1.Value = 0 And Ch2.Value = 0 Then
str1 = ""End IfText1.Text = str1 & str2End Sub另个一样的

使用道具举报