vbfor循环语句图案例题(关于vb循环结构的几道题··高手啊···求救·在线等······)
本文目录
- 关于vb循环结构的几道题··高手啊···求救·在线等······
- vbFOR循环的几道题请教
- 求大神教VB的for循环的两道题目
- vb for循环题目
- 有关VB for循环的习题(求过程,最好结合讲解)
- 高中的VB循环语句作业,详细见图
- 一道VB For 循环题,求解
关于vb循环结构的几道题··高手啊···求救·在线等······
完成了,在窗体上添加4个命令按钮,分别对应你的四个题,在窗体上直接输出结果,测试没问题,有疑问消息我Private Sub Command1_Click()Dim i As IntegerClsFor i = 0 To 500If isprime(i) Then Print iNextEnd SubFunction isprime(n As Integer) As Boolean ’求质数 isprime = True ’赋初值 For i = 2 To Int(Sqr(n)) If n Mod i = 0 Then ’如果能除尽 isprime = False ’证明是素数 Exit For End If Next iEnd FunctionPrivate Sub Command2_Click()Dim x(1 To 10) As IntegerRandomizeClsFor i = 1 To 10x(i) = Int(Rnd * 100)Print x(i)NextPrint "最大:"; max(x())Print "最小:"; Min(x())End SubFunction Min(a() As Integer) As Integer ’求最小Min = a(1)For i = 2 To 10If a(i) 《 Min Then Min = a(i)NextEnd FunctionFunction max(a() As Integer) As Integer ’求最大max = a(1)For i = 2 To 10If a(i) 》 max Then max = a(i)NextEnd FunctionPrivate Sub Command3_Click()ClsFor m = 1 To 4For i = 1 To 5Print i;NextPrintPrint Space(m);NextPrints = "abcde"For i = 1 To 5Print ss = Right(s, 1) & Left(s, 4)NextPrintFor i = 1 To 7 Step 2Print Space((8 - i - 1) / 2);Print String(i, "*")NextEnd SubPrivate Sub Command4_Click()ClsFor x = 0 To 9For y = 0 To 9For z = 0 To 9If x * 100 + y * 10 + z + y * 100 + z * 10 + z = 532 Then Print x, y, zNextNextNextEnd Sub
vbFOR循环的几道题请教
1、M=val(text1.text) N=val(text2.text) if N》M then M=N N=Mend iffor i=N To M if (i mod 2)《》0 then s=s+i end if next print s 2.for i=N to M if (i mod 5)=0 or (i mod 7)=0 then s=s+i end if next print s 3.for i=1 to n for j=1 to i s=s+j next k=k+s next print k
求大神教VB的for循环的两道题目
第一题的代码,我等会把源程序传上来,现在做第二题。Private Sub Command1_Click() Dim i As Integer, x As Integer x = Val(InputBox("请输入数据")) Print x & "的因子有:" For i = 1 To x - 1 If x Mod i = 0 Then Print i; End If Next iEnd Sub第二题上来了,经测正确无误!Private Sub Command2_Click() Dim i As Integer, x As String, n As Integer Dim a As String, b As String x = InputBox("请输入数据") n = Len(x) For i = 1 To n \ 2 a = Mid(x, i, 1) b = Mid(x, Len(x) + 1 - i, 1) If a 《》 b Then Exit For End If Next i If i 》= Len(x) \ 2 Then Print x & "是一个回纹数" Else Print x & "不是一个回纹数" End IfEnd Sub
vb for循环题目
是15~~俺运行滴我单步来解释下:i=1,j=1x=x+6在第二层循环x=3的(x=4一直是被第二层循环冲掉的,所以无视)k=1 x=x+6=9k=2 x=x+6=15---------------------i=1,j=2x=3(同样是x=4被冲掉了)k=1 x=x+6=9k=2 x=x+6=15---------------------i=1,j=3x=3(同样是x=4被冲掉了)k=1 x=x+6=9k=2 x=x+6=15---------------------i=2,j=1x=3(同样是x=4被冲掉了)k=1 x=x+6=9k=2 x=x+6=15...一直运行到i=4 j=3 k=2 x始终在4,3,15间切换 囧最后跳出整个循环 就是x=15
有关VB for循环的习题(求过程,最好结合讲解)
楼上regnad 的买鸡有问题Private Sub Command1_Click()’用100元买100只鸡,母鸡每只2元,公鸡每只1元,小鸡每只0.5元’等价:用200元买100只鸡,母鸡每只4元,公鸡每只2元,小鸡每只1元’避免小数运算 Dim 母鸡 As Integer, 公鸡 As Integer, 小鸡 As Integer For 母鸡 = 0 To 50 For 公鸡 = 0 To 100 小鸡 = 100 - 母鸡 - 公鸡 If 200 = 4 * 母鸡 + 2 * 公鸡 + 1 * 小鸡 Then _ Debug.Print "母鸡:" & 母鸡 & "只,公鸡:"; 公鸡 & "只,小鸡:" & 小鸡 & "只" Next 公鸡 Next 母鸡End Sub---------------------------------------------Private Sub Command1_Click()’(n!分之一)的和’方法1 Dim i As Double, j As Double Dim t As Double Dim n As Double n = Val(InputBox("")) t = 0 j = 1 For i = 1 To n j = j * i t = t + 1 / j Next i Debug.Print tEnd Sub---------------------------------------------Private Sub Command1_Click()’(n!分之一)的和’方法2 Dim i As Double Dim n As Double Dim t As Double n = Val(InputBox("")) t = 0 For i = 1 To n t = t + 1 / Factorial(i) Next i Debug.Print tEnd SubPrivate Function Factorial(ByVal n As Double) As Double’返回n的阶乘 Dim i As Double, t As Double t = 1 For i = 1 To n t = t * i Next i Factorial = tEnd Function
高中的VB循环语句作业,详细见图
初始s=10第一个循环:i=1、4、7、10、13、16、19,共循环7次,执行s=s+i七次,最后s=10+1+4+7+10+13+16+19=80第二个循环:j=1.2.3,共循环3次,s=s*j共执行3次,最后s=80×1×2×3=480题目中的问题:程序运行后,变量i的值是(22),变量j的值是(4),变量s的值是(480),语句……+i执行的次数为(7),语句……+j执行的次数为(3)。有什么问题请留言。
一道VB For 循环题,求解
运行的结果应该如下: i s2.6 63.2 73.8 84.4 9即i的值从2.6起,每次加0.6,共加到4.4,加了4次,4.4+0.6=5.0,大于循环终值4.9,所以循环结束不做了。
本文相关文章:
reference code(关于加拿大的申请,请问加拿大的签证在线)
2024年10月18日 13:55
vb讲解视频(求vb的视频教程在线观看地址知道的请给个谢谢!)
2024年10月5日 11:21
德云社孟嫂在线回应孟鹤堂,引发粉丝热议,孟哥家庭地位不一般,咋回事?孟鹤堂现任妻子怀孕了吗
2024年10月5日 02:01
sql和excel的区别(Spss ,Excel跟Sql 有什么差别在线等!!!!)
2024年9月3日 09:55
2022永久免费客服系统(在线客服系统哪一种靠谱网站上用的别整没用的,用过的说心里话)
2024年8月25日 23:25
vb程序设计例题解析与实践答案(vb程序设计题,跪求大神解答急,在线等.高分求答案,可加分)
2024年8月20日 21:50
网页编辑器在线代码(在线等!asp网页上加在线编辑器怎么弄)
2024年8月15日 05:41
phpmyadmin默认用户名(急!~~我的phpmyadmin不知道用户名是什么怎么办在线等!~~)
2024年8月8日 02:45
免费网站看v片在线薰衣草(电视剧熏衣草的下载地址,或在线看的)
2024年8月6日 05:55
asp源代码js统计(怎样用asp写代码来实现统计在线人数)
2024年7月28日 00:27
java从入门到精通实例版光盘(求大神发给我Java Web从入门到精通(明日科技) 光盘,在线等,急!)
2024年7月24日 07:28
更多文章:
人类创造的极限速度,仅比光慢了3.6毫米/秒!加速器的工作原理?我玩一个网络游戏私服,要用什么加速器呢
2024年5月25日 14:25
穿越火线手游体验服申请(该怎么填写加入精英体验服的理由玩穿越火线手游的说个理)
2024年7月24日 09:28
google地图卫星图像(为什么google地图上的卫星图像把海洋照成这样)
2024年7月23日 10:02
疯狂猜图答案及图片(关于疯狂猜图绿色帽子上插了一根羽毛答案是什么)
2024年6月29日 09:11
广东移动掌上服务厅(苹果手机怎样下载广东移动掌上营业厅App)
2024年8月13日 12:51
赛车游戏大全免费下载(求赛车游戏手游排行,有哪些比较推荐的)
2024年7月20日 09:45
用友软件免费版(用友财务软件T3试用版哪里可以免费下载怎么安啊)
2024年6月20日 04:41
搜狗影视下载(请问在哪里有纯英文的电影碟卖,下载也行要电影对白和字幕都是英文的(可以调节是中文还是英文的最好)
2024年6月27日 17:14
居住地村庄被暴力拆除应该怎么办哪些途径可以查询拆迁是否合法?强拆房屋构成什么罪呢
2024年5月12日 01:47
WOW 一个等级的战场有几个?酷狗里面有首:《战歌 2小时指挥战歌》,第44分30秒开始的那首歌曲叫什么名字
2024年5月17日 15:28
wifi万能查看器怎样查看别人的wifi?谁知道“hao123万能查询网址之家“网站
2024年6月12日 03:53