第一题 用vb随机生成8个两位数,前四个是偶数,后四个是奇数.在线等,急.
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:数学作业 时间:2024/08/20 02:18:48
第一题 用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个二位随机正整数围成一圈,找出每四个相邻数之和中的最大值,并指出是哪四个相邻的数.