小问题散分
1.
textbox怎么限定输入的是正数
例如：
if not ????(textbox1.text) then
textbox1.text= " "

2.
怎么添加和删除combobox中的项 要能保存的
例如：
combobox1.items.add(combobox1.text)
??????? '添加语句


[解决办法]
NO1:
if isnumeric(textbox1.text)=true and convert.toint32(textbox1.text) <0 then
textbox1.text= " "
endif
[解决办法]
错了，不好意思。

If IsNumeric(Me.TextBox1.Text) Or Int32.Parse(Me.TextBox1.Text) < 0 Then
Me.TextBox1.Text = " "
End If
[解决办法]
ComboBox的话可以和数据库绑定，添加项和删除项都保存到数据库里。
[解决办法]
combobox1.items.insert(place，combobox1.text)
combobox1.items.remove(2，combobox1.text)
哈哈，remove 的格式不一定正确
[解决办法]
no1 If IsNumeric(Me.TextBox1.Text) = False Then
Me.TextBox2.Text = " "
Else
If Int32.Parse(Me.TextBox2.Text) < 0 Then
Me.TextBox2.Text = " "
End If
End If
[解决办法]
dim str as string = "^(([0-9]+\.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*\.[0-9]+)|([0-9]*[1-9][0-9]*))$ " '匹配正浮点数
If System.Text.RegularExpressions.Regex.IsMatch(TextBox1.Text.ToString().Trim(), str.ToString().Trim()) Then
MsgBox( "符合要求 ")
Else
MsgBox( "不符合要求 ")
End If

补充：
^\d+$　　//匹配非负整数（正整数 + 0）
^[0-9]*[1-9][0-9]*$　　//匹配正整数
^((-\d+)|(0+))$　　//匹配非正整数（负整数 + 0）
^-[0-9]*[1-9][0-9]*$　　//匹配负整数