窗体上建立一个简单的组合框,在组合框的文本框的文本框输入数字字符,按回车键后加入到组合框的列表框内
展开全部
一楼回答不错,但我想这个应用一般是要去掉重复数据的。因为我这台电脑没有装VB,去重复你的那个For循环可能有点错误,具体需要您在VB环境下调试下。
Private Sub Combo1_KeyPress(KeyAscii As Integer)
dim K as long
If KeyAscii = 13 Then
If IsNumeric(Combo1.Text) Then
for k=0 to combo1.listcount -1
if clng(combo1.list(k))=clng(combo1.text) then exit for
next
if k>= combo1.lsitcount then Combo1.AddItem Combo1.Text
Else
MsgBox Combo1.Text & " 不是数字!"
End If
End If
End Sub
Private Sub Combo1_KeyPress(KeyAscii As Integer)
dim K as long
If KeyAscii = 13 Then
If IsNumeric(Combo1.Text) Then
for k=0 to combo1.listcount -1
if clng(combo1.list(k))=clng(combo1.text) then exit for
next
if k>= combo1.lsitcount then Combo1.AddItem Combo1.Text
Else
MsgBox Combo1.Text & " 不是数字!"
End If
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If IsNumeric(Combo1.Text) Then
Combo1.AddItem Combo1.Text
Else
MsgBox Combo1.Text & " 不是数字!"
End If
End If
End Sub
If KeyAscii = 13 Then
If IsNumeric(Combo1.Text) Then
Combo1.AddItem Combo1.Text
Else
MsgBox Combo1.Text & " 不是数字!"
End If
End If
End Sub
追问
窗体上建立一个简单的组合框,在组合框的文本框的文本框输入数字字符,按回车键后加入到组合框的列表框内;单击“交换”按钮,将列表框中最小值项目和第0个项目交换;最大值项目与最后项目交换。能把这个也写一下么?
追答
Private Sub Combo1_KeyPress(KeyAscii As Integer)
Dim i As Integer
If KeyAscii = 13 Then
If IsNumeric(Combo1.Text) Then
For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = Combo1.Text Then Exit For '判断是否在combo1中已存在
Next
If i = Combo1.ListCount Then '如果i=combo1.listcount,则在combo1中不存在,需要添加
Combo1.AddItem Combo1.Text
Combo1.Text = ""
End If
Else
MsgBox Combo1.Text & " 不是数字!"
End If
End If
End Sub
Private Sub Command2_Click()
Dim i As Integer, min As Double, max As Double, oo As String, j As Integer, k As Integer
min = 999999 '因不知道输入到combo1中的数字能不能为小数或负数,所以取min和max都是double型
max = -999999 'min初始取可能的最大值,max初始取可能的最小值。
For i = 0 To Combo1.ListCount - 1
If Val(Combo1.List(i)) max Then max = Val(Combo1.List(i)): k = i
Next
oo = Combo1.List(0) '以下三行为最小值和第0行交换
Combo1.List(0) = min
Combo1.List(j) = oo
If k = 0 Then k = j '若最大值在第0行,经最小值和第0行交换后,最大值已到第j行
oo = Combo1.List(Combo1.ListCount - 1) '以下三行为最大值和最后一行交换
Combo1.List(Combo1.ListCount - 1) = max
Combo1.List(k) = oo
End Sub
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询