甜橘子，专注成都网站制作网站设计与营销型网站建设与优化
QQ :532337155
电话：028-86922220
If CheckBox1.Checked And CheckBox2.Checked And Not CheckBox3.Checked _
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：域名注册、网页空间、营销软件、网站建设、合山网站维护、网站推广。
And Not CheckBox3.Checked And Not CheckBox3.Checked Then
MsgBox("满足你的要求！")
Else
MsgBox("不满足你的要求！")
End If
基本的算法如下：
Class Program
Shared Sub Main()
Combine(Enumerable.Range(1, 8).ToArray(), 5)
End Sub
Private Shared Sub Combine(a() As Integer, n As Integer)
combine(a, 0, n, New Integer(n - 1){})
End Sub
Private Shared Sub combine(a() As Integer, m As Integer, n As Integer, b() As Integer)
If n=0 Then
For Each i As Integer In b
Console.Write(i " ")
Next i
Console.WriteLine()
Return
End If
For i As Integer = m To a.Length-n
b(b.Length-n) = a(i)
combine(a, i+1, n-1, b)
Next i
End Sub
End Class
你的题目中排列的是字符串，那吧Integer数组改成String数组就可以了，通过InputBox输入后可以用"xxx,xxx".Split(",")来分隔成String数组，结果要在TextBox显示，可以把这个代码中的Console.Write换成追加到全局变量，再显示到TextBox就行。自己改造一下吧。
可以的，把项目的类型设成类库，将所有的函数用Public修饰附封装在类里面，生成dll文件。这样别人就可以在别人项目属性的引用页里面添加对你的dll文件的引用，然后导入命名空间，直接使用了。
比如说，在一个项目里：
NameSpace Controller
Public Class ControlMachine
Public Sub Boot()
End Sub
Public Sub Shutdown()
End Sub
End Class
End NameSpace
进入另一个项目的项目属性，进入引用页，添加到那个dll文件的引用。在代码中：
Imports Controller '加在代码文档的最顶端
使用：
Dim controller As New ControlMachine
controller.Boot()
controller.Shutdown()
希望你能了解，不懂再追问
一般来讲asp.net的服务器运行应用所用的账号只有对应用所在目录(放网页的目录)的访问权限，你可以把文件存储在应用所在目录或者子目录试试。
My.Computer.FileSystem.WriteAllText(Server.MapPath("") “\" Now.toString("yyyyMMdd") ".txt", "URL：XXXXXX查询完成，匹配成功！" vbCrLf, true, System.Text.Encoding.Default)
窗体上添加2个文本框，设置成多行，2个按钮，在文本框1里随便输入若干文字，可以多行，单击按钮1，保存到文件。然后单击按钮2，把刚才写入的文件读到文本框2里。
代码如下：
'写文本文件
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'创建(写入)一个文本文件
Dim MyStream As New System.IO.FileStream(Application.StartupPath "\Ssk.txt", System.IO.FileMode.Create)
Dim MyWriter As New System.IO.StreamWriter(MyStream, System.Text.Encoding.Default)
MyWriter.WriteLine(TextBox1.Text)
MyWriter.Flush()
MyWriter.Close()
MyStream.Close()
End Sub
'读文本文件
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'读取一个文本文件
Dim MyReader As New System.IO.StreamReader(Application.StartupPath "\Ssk.txt", System.Text.Encoding.UTF8)
TextBox2.Text = MyReader.ReadToEnd()
MyReader.Close()
End Sub
气斜射入水或其他介质，折射光线与入射光线法线在
Delphi代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
购物总价:Integer;
折扣:Extended;
begin
购物总价:=StrToInt(Edit1.Text);
if 购物总价250 then
begin
折扣:=0;
end
else if 购物总价500 then
begin
折扣:=0.05;
end
else if 购物总价1000 then
begin
折扣:=0.075;
end
else if 购物总价2000 then
begin
折扣:=0.1;
end
{
此段的折扣是多少？
else if 购物总价3000 then
begin
折扣:=0.05;
end
}
else if 购物总价=3000 then
begin
折扣:=0.15;
end;
ShowMessage('您享受的折扣是：'+FloatToStr(折扣)
+' 原价：'+IntToStr(购物总价)
+' 折后总价：'+FloatToStr(购物总价*(1-折扣)));
end;