vb点虐 循环相等 vb循环语句

在vb点虐 中怎么判断两个字符串相等

Dim A As String, B As String

专注于为中小企业提供成都网站设计、成都做网站服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业梅里斯免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了数千家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

A = "123456"

B = "123456"

If A = B Then GoTo xiangdeng

MsgBox "不相等"

GoTo buxiangdeng

xiangdeng:

MsgBox "相等"

buxiangdeng:

vb点虐 for循环

dim i

for i=2 to 1

msgbox("*")

next

语法没问题，这应该在winform里面能够调试成功，显示运行框，但是在web application里面就不能出现弹出信息框了，在网页上要出现，建议用response.write("scriptalert（'***'）/script").

for i=100 to 1 这样的语句在VB9.0后是支持的。楼下的，不要天天抱着VB6啃。

vb点虐 关于循环语句

我写了一段代码，注意你读取的方法，我改进了一下 Imports System.IO ‘代码窗体的最上端一定要声明

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim sr As StreamReader Dim TextBox As Control

Dim i As Integer

i = 1

For Each TextBox In Me.Controls

If TypeName(TextBox) = "TextBox" Then sr = New StreamReader("c:\save\" i ".ini", System.Text.Encoding.Default) ’注意选择编码方式，按你原来的方法，未设置编码，显示的是乱码！路径请按你的情况改！ TextBox.Text = sr.ReadToEnd()

i += 1 End If

Next

MsgBox("已经载入" i - 1 "个文件") End Sub注意：这样的代码是倒序的，第一个文本框显示的是最后一个文件的内容！请酌情处理！

哥德巴赫 VB点虐 双重循环

Module Program

Sub Main()

Dim l,n1,n2 As Long

Console.Write("请输入一个大于等于6的偶数：")

l=CLng(Console.ReadLine())

For n1=3 To CLng(l/2)+1

n2=l-n1

If IsPrime(n1) AndAlso IsPrime(n2) Then

Exit For

End If

Next

Console.WriteLine("{0}={1}+{2}",l,n1,n2)

Console.Write("Press any key to continue . . . ")

Console.ReadKey(True)

End Sub

Function IsPrime(l As Long) As Boolean

Dim r As Boolean=False

Dim i As Long,sq As Long=CLng(Math.Sqrt(l))

For i=2 To sq

If 0=l Mod i Then

Exit For

End If

Next

If isq Then

r=True

End If

Return r

End Function

End Module