搜搜考试网第一题 用vb随机生成8个两位数,前四个是偶数,后四个是奇数.在线等,急.
来源：学生作业帮 编辑：搜搜考试网作业帮 分类：数学作业 时间：2024/05/10 09:44:33
第一题 用vb随机生成8个两位数,前四个是偶数,后四个是奇数.在线等,急.
第二题查找出100以内的孪生素数（孪生素数是数本身和比它大2的数都是素数,如3和5）,查找结果显示在列表框.
好的追加200分!
第二题查找出100以内的孪生素数（孪生素数是数本身和比它大2的数都是素数,如3和5）,查找结果显示在列表框.
好的追加200分!
第一题
dim s(1 to 8) as integer
for i=1 to 4
s(i)=int(rnd*90)+10
do while s(i) mod 2=1
s(i)=int(rnd*90)+10
loop
s(i+4)=int(rnd*90)+10
do while s(i+4) mod 2=0
s(i+4)=int(rnd*90)+10
loop
next
第二题
for i=1 to 100
if fun(i) and fun(i+2) then
list1.additem i
end if
next
function fun(s as integer) as boolean'求素数函数
for i=2 to sqr(s)
if s/i=int(s/i) then
exit function
end if
next
fun=true
end function
再问： 前面要定义吗，麻烦写全一些，我是小白，我会追加分数的。
dim s(1 to 8) as integer
for i=1 to 4
s(i)=int(rnd*90)+10
do while s(i) mod 2=1
s(i)=int(rnd*90)+10
loop
s(i+4)=int(rnd*90)+10
do while s(i+4) mod 2=0
s(i+4)=int(rnd*90)+10
loop
next
第二题
for i=1 to 100
if fun(i) and fun(i+2) then
list1.additem i
end if
next
function fun(s as integer) as boolean'求素数函数
for i=2 to sqr(s)
if s/i=int(s/i) then
exit function
end if
next
fun=true
end function
再问： 前面要定义吗，麻烦写全一些，我是小白，我会追加分数的。
第一题 用vb随机生成8个两位数,前四个是偶数,后四个是奇数.在线等,急.
vb 随机20个两位数,奇数位奇数,偶数位偶数,相邻两位求和.
vb代码,急 a) 单击“生成”按钮,生成100个三位随机整数,分别将其中的偶数与奇数显示在二个列表框中 b)
VB：随机生成20个2位随机奇数和偶数,分2行显示：这20个随机数中偶数有 ；奇数有 ；偶数共 个；奇数共 个
四个数,前三个成等差数列,后四个成等比数列,第一个与第四个和是16,第二个与第三个和是12,求四个数.
vb程序中 输出10个[10,99]范围内随机整数用“生成”按钮,用“统计”按钮分别统计其中奇数和与偶数和
急 第一个为-2,后四个依次是A B C D
VB:有20个10以内的随机整数排成一排,找出每四个相邻数之和中的最大值,并指出是哪四个相邻的数
vb 20个100以内的随机整数围成一圈,找出每四个相邻数之和中的最大值,并指出是哪四个相邻的数.
四个连续的奇数,第一个是第四个的19|21,那么第四个数是[ ]
vb编程题.随机产生10个【50,300】之间的整数,求最大的偶数和最小的奇数.
vb编程题：20个二位随机正整数围成一圈,找出每四个相邻数之和中的最大值,并指出是哪四个相邻的数.