VB中 我输入一个学号,然后把这个学生的性别改成相反的。怎么弄? 20
输入一个学号,然后把这个学生的性别改成相反的性别!怎么编程呀?先根据学号读出这个学生的性别,再把性别取反就是这个说法,要怎么编程!!就用VB编程!...
输入一个学号,然后把这个学生的性别改成相反的性别! 怎么编程呀 ?
先根据学号读出这个学生的性别,再把性别取反
就是这个说法,要怎么编程!! 就用VB编程! 展开
先根据学号读出这个学生的性别,再把性别取反
就是这个说法,要怎么编程!! 就用VB编程! 展开
4个回答
展开全部
要有2个List控件吧。。。。。
1个里面输入学号,一个里面输入性别,在放一个command控件
代码:
Private Sub Command1_Click()
Dim msg, a, b
On Error GoTo a123
a = InputBox("请输入学号", "请输入:", "学号")
If a = "" Then Exit Sub
b = 0
List1.ListIndex = 0
Do
If a = List1.List(b) Then
Exit Do
End If
List1.ListIndex = List1.ListIndex + 1
b = b + 1
Loop
MsgBox b
MsgBox List2.List(b)
If List2.List(b) = "男" Then
List2.RemoveItem b
List2.AddItem "女", b
End If
If List2.List(b) = "女" Then
List2.RemoveItem b
List2.AddItem "男", b
End If
Exit Sub
a123:
msg = MsgBox("没找到该学号", vbInformation, "提示")
End Sub
1个里面输入学号,一个里面输入性别,在放一个command控件
代码:
Private Sub Command1_Click()
Dim msg, a, b
On Error GoTo a123
a = InputBox("请输入学号", "请输入:", "学号")
If a = "" Then Exit Sub
b = 0
List1.ListIndex = 0
Do
If a = List1.List(b) Then
Exit Do
End If
List1.ListIndex = List1.ListIndex + 1
b = b + 1
Loop
MsgBox b
MsgBox List2.List(b)
If List2.List(b) = "男" Then
List2.RemoveItem b
List2.AddItem "女", b
End If
If List2.List(b) = "女" Then
List2.RemoveItem b
List2.AddItem "男", b
End If
Exit Sub
a123:
msg = MsgBox("没找到该学号", vbInformation, "提示")
End Sub
展开全部
先根据学号读出这个学生的性别,再把性别取反。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
首先 性别你确定是逻辑型嘛?
其次 你用的是什么数据库 什么连接模式
其次 你用的是什么数据库 什么连接模式
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
给个思路:
用select获得性别
然后是男的改女的
是女的改男的
再update
用select获得性别
然后是男的改女的
是女的改男的
再update
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询