UC知道VB不会做的题 救命
来源：百度知道 编辑：UC知道 时间：2024/05/19 00:22:32
题1
在文本框Text1中指定一个初始值，从该值开始，找出100个不能被7整除的自然数，并显示在列表框List1中。
2. 在窗体上设置一个名称为Combo1的下拉组合框，一个名称为Label1的标签。要求当在组合框中输入一个新项后按回车键时，若输入项在组合框列表中不存在，则添加到组合框列表中，并在标签中提示“已添加输入项”；若输入项在组合框列表中存在，则在标签中提示“输入项已存在组合框中”。
在文本框Text1中指定一个初始值，从该值开始，找出100个不能被7整除的自然数，并显示在列表框List1中。
2. 在窗体上设置一个名称为Combo1的下拉组合框，一个名称为Label1的标签。要求当在组合框中输入一个新项后按回车键时，若输入项在组合框列表中不存在，则添加到组合框列表中，并在标签中提示“已添加输入项”；若输入项在组合框列表中存在，则在标签中提示“输入项已存在组合框中”。
1.题,请在窗体上放一个文本框text1,一个列表框list1,和一个命令按钮，代码如下（直接拷贝）
Private Sub Command1_Click()
Dim i As Long, n As Integer
If Text1.Text <> "" Then
For i = Val(Text1.Text) To 2147483647
If i Mod 7 <> 0 Then
List1.AddItem i
n = n + 1
End If
If n = 100 Then Exit For
Next i
End If
End Sub
Private Sub Form_Load()
Text1.Text = ""
List1.Clear
End Sub
2.题，请在窗体放一个组合框combo1,一个标签label1和一个命令按钮command1代码如下（直接拷贝）
Private Sub Command1_Click()
If Combo1.ListCount <> 0 Then
Dim i As Integer, k As Integer
For i = 0 To Combo1.ListCount - 1
If Combo1.Text = Combo1.List(i) Then
k = 1
Exit For
End If
Next i
End If
If k <> 1 Then
Combo1.AddItem Combo1.Text
Label1.Caption = "已添加输入项"
Else
Label1.Caption = "输入项已存在组合框中"
End If
End Sub
Private Sub Command1_MouseDown(Button As Integer