求用vb程序设计 做一份个人简历表的代码，如下图

Question

ps：百度知道或者搜搜问问上复制粘贴来的不对，跪求高手编写一段

Answer 1

可好？

追问

为什么我的会出来错误的参数号或无效的属性赋值

追答

你的代码是？

追问

就是按照你的图上打上去的

追答

那你就应该是和我的控件不一样

你把邮箱发过来嘛，我直接把工程发给你

追问

你的是vb6.0 吗

追答

嗯嗯

追问

发给我吧，1007367078，谢谢

追答

我现在可能不能发给你哟。清明节来了，现在正在往家赶。。。你懂的

Answer 2

这些都是些最基础的东西啊。。。。追问

求代码啊

追答Dim i! '伸手必被捉。除按钮外，其它控件采用数组。未做空选的判断
Private Sub Form_Load()'加载
Text1(0) = ""
Text1(1) = ""
Label3.Caption = ""
For i = 0 To 1
    Option1(i).Value = 0
Next i
For i = 0 To 2
    Option2(i).Value = 0
    Option3(i).Value = 0
Next i
For i = 0 To 3
    Check1(i).Value = 0
Next i
End Sub

Private Sub Command1_Click()'提交
Dim a$(6), b$
a(0) = "简历"
a(1) = "姓名：" & Text1(0)
a(2) = "年龄：" & Text1(1)
a(3) = "性别：" & IIf(Option1(0), Option1(0).Caption, Option1(1).Caption)

For i = 0 To 2
    If Option2(i) Then
    a(4) = "学历：" & Option2(i).Caption
    ElseIf Option3(i) Then
    a(5) = "职业：" & Option3(i).Caption
    End If
Next i

For i = 0 To 3
    If Check1(i) Then
    b = b & Check1(i).Caption & " "
    a(6) = "爱好：" & b
    End If
Next i

Label3.Caption = Join(a, vbCrLf)
End Sub

Private Sub Command2_Click()'重置
Call Form_Load
End Sub

本回答被网友采纳

Answer 3

我也不会，你问别人吧

Answer 4

说的详细些，提交以后怎么样追问

提交之后会出现这样子