Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
我们提供的服务有：成都网站制作、做网站、微信公众号开发、网站优化、网站认证、奎屯ssl等。为超过千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的奎屯网站制作公司
参数
Destination 要复制内存块的目的地址。
Source 要复制内存块的源地址。
Length 指定要复制内存块的大小，单位为字节
返回值 该函数为VOID型，没有返回值。
VB.NET编程Mid函数一般用于返回原字符串中子串，比如说：
Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo" 建立一个字符串。
FirstWord = Mid(MyString, 1, 3) ' 返回 "Mid"。
LastWord = Mid(MyString, 14, 4) ' 返回 "Demo"。
MidMidWords = Mid(MyString, 5) ' 返回 "Funcion
具体函数说明如下：返回 Variant (String)，其中包含字符串中指定数量的字符。
mid函数的语法：
Mid(string, start[, length])
mid函数的参数：
string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null；
start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，VB.NET Mid函数返回零长度字符串 ("")；
length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。
在窗口上放2个label和1个button，名字不改 下面代码放到button的click事件中： Label1.Text = "" Label2.Text = "" Dim num(9) As Integer Dim i As Integer = 0 Dim j As Integer = 0 Dim k As Integer = 0 Randomize() For i = 0 To 9 '数组赋值随机数，并将数全部打印在label11中 num(i) = Rnd() * 90 + 10 Label1.Text = Label1.Text num(i).ToString vbCrLf Next For i = 0 To 8 For j = i + 1 To 9 '双层循环，用于进行两个数的操作 '判断num(i)和num(j)的大小，循环到最小的数 If num(i) = num(j) Then For k = 2 To num(j) '循环判断是否有公约数，有的话跳出循环 If (num(i) Mod k = 0) And (num(j) Mod k = 0) Then Exit For End If Next k If k num(j) Then '当判断成立时说明上面是循环结束，并不是中间跳出，因此没有公约数，两个数是互质数，然后打印在label2中 Label2.Text = Label2.Text num(i).ToString "，" num(j).ToString vbCrLf End If Else For k = 2 To num(i) If (num(i) Mod k = 0) And (num(j) Mod k = 0) Then Exit For End If Next k If k num(i) Then Label2.Text = Label2.Text num(i).ToString "，" num(j).ToString vbCrLf End If End If Next j Next i
放两个TEXTBOX用来输入,一个按扭.
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a = Int(Text1)
b = Int(Text2)
For i = 2 To a - 1
If (a Mod i) = 0 Then
If (b Mod i) = 0 Then
MsgBox "这两个数不是互质数。"
Exit Sub
End If
End If
Next i
For i = 2 To b - 1
If (b Mod i) = 0 Then
If (a Mod i) = 0 Then
MsgBox "这两个数不是互质数。"
Exit Sub
End If
End If
Next i
MsgBox "这两个数是互质数。"
End Sub
