急!!!vb高手帮忙做三个程序

2025-03-09 10:18:10
推荐回答(4个)
回答1:

请教<>代劳 记住~~

自己动手丰衣足食。
不懂才问!~~

回答2:

这么简单的你也好意思上来问,什么都已经给你了,就到VB里拖控件,再编几句程序呗

回答3:

这是个啥也不会的主

回答4:

看到楼上的,我也想提醒你一句!!!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

惭愧啊!!!!不能害你!!!!下面的问题 你 自己 写吧!!!我删了!!