用vb设计一项目,单击窗体后依次弹出输入对话框[inputbox()].输入姓名,性别,年

Question

如题所述

Answer 1

电脑上没VB，只能用EXECL里的VBA写了，记不得事件表示的具体代码区别了，应该适用VB的，如果有问题，你直接就复制中间代码好了，窗体的事件你自己选下 MouseDown 事件。

Private Sub Form1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)


Dim name As String '姓名
Dim sex As String '性别
Dim ago As Integer  '年龄

name = InputBox("请输入 姓名", "姓名")
sex = InputBox("请输入 性别", "性别")
age = InputBox("请输入 年龄", "年龄")

MsgBox "姓名：" & name & "，性别：" & sex & "，年龄：" & age


End Sub