请教<>代劳 记住~~
自己动手丰衣足食。
不懂才问!~~
这么简单的你也好意思上来问,什么都已经给你了,就到VB里拖控件,再编几句程序呗
这是个啥也不会的主
看到楼上的,我也想提醒你一句!!!VB是一种实践性 很强的科目,所以要自己动手,真正不会 才问!!!
下面是我对你问题的回答
第一题:
注意要用框架来区别学位和职称单选框
学位的3个单选框是一个控件数组,职称的4个单选框是一个控件数组
学位控件数组name为xuewei
职称的控件数组name为zhicheng
下面的是我的代码
Dim i As Integer, j As Integer '定义2个全局变量
Private Sub Command1_Click() '显示按钮,3种情况,选了学位,没选职称;选了职称,没选学位;全选
If i = 3 Then
If j = 4 Then
Else
MsgBox "张红的职称是:" & zhicheng(j).Caption
End If
Else
If j = 4 Then
MsgBox "张红的学位是:" & xuewei(i).Caption
Else
MsgBox "张红的学位是" & xuewei(i).Caption & ",职称为:" & zhicheng(j).Caption
End If
End If
End Sub
Private Sub xuewei_Click(Index As Integer) '学位
If xuewei(0).Value = True Then
i = 0
ElseIf xuewei(1).Value = True Then
i = 1
ElseIf xuewei(2).Value = True Then
i = 2
Else
i = 3
End If
End Sub
Private Sub zhicheng_Click(Index As Integer)'职称
If zhicheng(0).Value = True Then
j = 0
ElseIf zhicheng(1).Value = True Then
j = 1
ElseIf zhicheng(2).Value = True Then
j = 2
ElseIf zhicheng(3).Value = True Then
j = 3
Else
j = 4
End If
End Sub
惭愧啊!!!!不能害你!!!!下面的问题 你 自己 写吧!!!我删了!!