当前位置:编程学习 > VB >>

简单VB 程序 请高手帮下忙看看是那错了,而且 Command1的哪一步看着不是很明白请帮忙解释下

Private Sub Command1_Click() Label1.Caption = "姓名" & Text1.Text & vbCrLf Label2.Caption = Label2.Caption & "性别" & Combol.Text & vbCrLf Label3.Caption = Label3.Caption & "职称" & Combo2.Text & vbCrLf Label4.Caption = Label4.Caption & "学历" & Combo3.Text & vbCrLf End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Combo1.AddItem "男" Combo1.AddItem "女" Combo2.AddItem "教授" Combo2.AddItem "副教授" Combo2.AddItem "讲师" Combo2.AddItem "助教" Combo3.AddItem "博士研究生" Combo3.AddItem "硕士研究生" Combo3.AddItem "大学" Combo3.AddItem "大专" Combo3.AddItem "高中" End Sub
追问:能帮我解释下 Command1 的Click()的意义么
答案:代码错了,要不是测试还真是看不出来,有个1写成l了
Private Sub Command1_Click()
Label1.Caption = "姓名" & Text1.Text & vbCrLf
Label2.Caption = Label2.Caption & "性别" & Combo1.Text & vbCrLf
Label3.Caption = Label3.Caption & "职称" & Combo2.Text & vbCrLf
Label4.Caption = Label4.Caption & "学历" & Combo3.Text & vbCrLf
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem "男"
Combo1.AddItem "女"
Combo2.AddItem "教授"
Combo2.AddItem "副教授"
Combo2.AddItem "讲师"
Combo2.AddItem "助教"
Combo3.AddItem "博士研究生"
Combo3.AddItem "硕士研究生"
Combo3.AddItem "大学"
Combo3.AddItem "大专"
Combo3.AddItem "高中"
End Sub
其他:代码没错! Label2.Caption = Label2.Caption & "性别" & Combol.Text & vbCrLf
你输错了,应该是:
Label2.Caption = Label2.Caption & "性别" & Combo1.Text & vbCrLf dim i as integer,s as integer for i=1 to 100 s=s i next i print s 算法需要至少100次运算,若直接使用 dim s as integer s=(1 

上一个:VB怎么像QQ消息那样(右下角)和像QQ能托盘右键有菜单
下一个:vb 个税计算器

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,