VB求素数问题

If i >= x Then

isprime = 1

Else

isprime = 0

End If

就是当i大于或者等于x的时候，将isprime标记为1，否则标记为0。（实际上这个变量使用逻辑变量更合适，前者赋值为真，后者为假）

为什么这样？

因为i是前面for循环的自变量，如果在循环中（x被i整除）通过

If x Mod i = 0 Then

Exit For

End If

跳出循环，则i<x，所以就在循环以外标记为isprime为假（即不是素数）

要是正常结束循环，则i至少等于x，即满足循环外的条件，标注isprime为真。

Private Sub Command1_Click()

Dim a(1 To 10) As Integer

For i = 1 To 10

a(i) = Int(Rnd 10)

Print a(i);

Next i

Print

'以上十随机得出10个数

For i = 1 To 9 '这里开始是双重循环

For j = i + 1 To 10

If a(i) > a(j) Then '如果前一个数大于后一个数则交换位置

t = a(i): a(i) = a(j): a(j) = t

End If

Next j

Print a(i);

Next i

Print a(i);

End Sub

I等于1时 就是拿第一位和第二位比较 比较大的的数排后面 然后比较第一位和第三位 For j = i + 1 

To 10 直到比较到最后一位

i=2 时也是如此 循环9次就完成排序

5 3 2 7

i=1 时

J=2时 3 5 2 7

J=3时 2 5 3 7

j=4时 2 5 3 7

I=2时

j=3时 2 3 5 7

扩展资料

Private Sub Command1_Click()

Dim a(10) As Integer

Dim b As Integer

Dim i As Integer

Dim j As Integer

Dim k As Integer

For i = 1 To 10

a(i) = Int(Rnd  90 + 10)

Print a(i);

Next i

Print

For i = 1 To 9

k = i

For j = k + 1 To 10

If a(j) < a(k) Then k = j

Next j

If a(i) > a(k) Then

b = a(i)

a(i) = a(k)

a(k) = b

End If

Next i

For i = 1 To 10

Print a(i);

Next i

Print

End Sub

参考资料：

- 选择法排序

1-以客户名列筛选空行，删掉所有空行

2-每行下抄加一个空行，运行下面的宏

Sub aa()For i = 3 To 2000:

Cells(i, 1)Select

SelectionEntireRowInsert , CopyOrigin:=xlFormatFromLeftOrAbove

i = i + 1

Next

End Sub

i=3 to 2000，表示从第袭三行开始插入空行（看你数据格式，可以相应调整），到完成百后两千行，看你有多少行数据，插入空行后行数自度然增加一倍，若不愿意计算行数就多设，反正空行再知加空行也没有影响。

我也和你情况相似，也认识一个巨蟹男比我大四年的，一开始相亲认识得时候，一直都是我主动的，他很内向被动。之前每次约他他都出和有忙会帮，渐渐的有时候发短信爱回不回，打电话爱接不接的，很冷漠很cool,之前他说他几年都忘不了他的EX。所以我觉得巨蟹是很执着、很放不开、很谨慎、很情绪化、很个性的男人！现在再打电话给他就老是说最近忙没空了，是在逃避，感觉这种人是三分钟热度！

clc;

clear

tmp = 'sub'; %先构造字符串sub

sum = zeros(8); %用来存储矩阵之和，初始值为8阶零矩阵

for i = 1:16

filename = [tmp num2str(i)]; %每次要载入的mat文件名，就是'subi'的形式

load(filename); %载入文件

sum=sum+a; %矩阵累加

end

sum=sum/16 %矩阵和除以16得到平均

%%%%%%%%%%%%%%%%%%%%%%%%

当然你的MATLAB路径里面确实要有这些MAT文件，并且里面的变量确实是名叫a的8阶矩阵。否则载入了之后发现名字或者维数不对，是不能运行的。