UC知道谁能一句一句帮我解释VB程序
来源：百度知道 编辑：UC知道 时间：2024/05/15 02:56:11
Private Function isprime(a As Integer) As Boolean
Dim flag as Boolean
flag=True
Do While b%<=Int(a/2) And flag
IfInt(a/b)=a/b% Then
flag = False
Else
b%=b%+1
End if
Boolean
isprime=flag
End Function
Private Sub C1_Click()
Dim i As Integer
i=18000
Do
i=i-1
Loop Until isprime(i)
Text.Text=i
end sub
Private Sub C2_Click()
Open"out5.txt"For Out Put as #1
Print #1,Text1.Text
Close#1
End Sub
Dim flag as Boolean
flag=True
Do While b%<=Int(a/2) And flag
IfInt(a/b)=a/b% Then
flag = False
Else
b%=b%+1
End if
Boolean
isprime=flag
End Function
Private Sub C1_Click()
Dim i As Integer
i=18000
Do
i=i-1
Loop Until isprime(i)
Text.Text=i
end sub
Private Sub C2_Click()
Open"out5.txt"For Out Put as #1
Print #1,Text1.Text
Close#1
End Sub
Private Function isprime(a As Integer) As Boolean '定义一个子全局函数
Dim flag as Boolean'定义一个布尔变量
flag=True '给布尔变量赋初值为真
Do While b%<=Int(a/2) And flag '当b的值小于等于a的一半的整数部分并且flag为真时 ,进入循环
IfInt(a/b)=a/b% Then '判断
flag = False '为假
Else '否则
b%=b%+1'b值+1
End if 结束判断
Boolean '这句有问题
isprime=flag '又一个布尔变量
End Function '结束函数过程
Private Sub C1_Click()'单击C1按钮
Dim i As Integer
i=18000
Do
i=i-1
Loop Until isprime(i) '后测式直到型循环
Text.Text=i '这句有问题,应为text1.text
end sub
Private Sub C2_Click() '单击C2按钮
Open"out5.txt"For OutPut as #1' 打开文本文件 为了输出
Print #1,Text1.Text'把文本框的内容一次写入文件
Close#1 '关闭文件
End Sub
我 来
这是执行函数过程的一序列语句！句中声明一个布尔变量，然后调有过程进行判断！基础不熟练，要多练习！