vb中查询结果显示在文本框中

录入成绩之后，点击查询按钮，如何将各科的的成绩显示在文本框中vb程序设计... 录入成绩之后，点击查询按钮，如何将各科的的成绩显示在文本框中
vb程序设计展开

 我来答

1个回答

#热议# 应届生在签三方时要注意什么？

数学与计算机编程
2016-12-21 · TA获得超过2160个赞

知道大有可为答主

回答量：2312

采纳率：80%

帮助的人：572万

我也去答题访问个人页

关注

展开全部

Private Sub Command1_Click()
  For i = 0 To Combo1.ListCount - 1
    If Mid(Combo1.List(i), 1, 3) = Text1.Text Then
      Label2.Caption = "姓  名  英语  数学  VB" + vbCrLf + Combo1.List(i)
      Exit For
    End If
    If i = Combo1.ListCount - 1 Then
      Label2.Caption = "查无此人!"
    End If
  Next i
End Sub

Private Sub Form_Load()
  Combo1.AddItem "王宏伟" + Space(2) & 86 & Space(2) & 75 & Space(2) & 81
  Combo1.AddItem "赵桂香" + Space(3) & 91 & Space(4) & 86 & Space(3) & 92

追问

不是显示在form上面，而是text中

追答

Private Sub Command1_Click()
  For i = 0 To Combo1.ListCount - 1
    If Mid(Combo1.List(i), 1, 3) = Text1.Text Then
      Text2.Text = "姓  名  英语  数学  VB" + vbCrLf + Combo1.List(i)
      Exit For
    End If
    If i = Combo1.ListCount - 1 Then
      Text2.Text = "查无此人!"
    End If
  Next i
End Sub
 
Private Sub Form_Load()
  Combo1.AddItem "王宏伟" + Space(2) & 86 & Space(2) & 75 & Space(2) & 81
  Combo1.AddItem "赵桂香" + Space(3) & 91 & Space(4) & 86 & Space(3) & 92
End Sub