3道vb编程题，

来源：百度知道 编辑：UC知道 时间：2024/05/21 11:50:34
1.通过文本框输入一个整数n，若n大于等于0，则用mgsbox显示平方根。否则显示平方值。
2.随即产生20个【2 1000】之间的正整数，在列表框中显示其中的素数。
3.随即产生一个5*5的矩阵，范围【20 70】之间的齐数，
a.用文本框显示该矩阵。
b.求矩阵中各元素平均值，将矩阵中大于平均值元素显示在文本框中。
赶紧回答，对优秀的答案，在加20分

我要详细的答案，赶紧给我啊

自己学去，帮你是害你
if text1.text>0 then
msgbox(Sqr(text1.text))
else
msgbox(text1.text*text1.text)
end if

随机数 Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。

素数判断
For i = 2 To Sqr(n) 'i从2开始每循环一次自增1
一直到i=Sqr(n)+1时(不再满足i = 2 To Sqr(n))结束循环
If n Mod i = 0 Then Exit For'当i不是素数，有可以整除的因子时 跳出循环，此时i一定属于i = 2 To Sqr(n))这个范围内，这样 下面的if语句就会执行else部分，Label1.Caption = "非素数" 了
Next i

If i > Int(Sqr(n)) Then 'For循环进行到最后 i=Sqr(n)+1
Print
Label1.Caption = "素数"
Else
Label1.Caption = "非素数"
End If

5*5换行

for i =1 to 5
for j=1 to 5
要答应的东西
next j
print vbcrlf
next i

平均值和比较就不用说了吧太简单了

我不说详细，但是靠这些代码肯定能弄出来