问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

vb几道编程题,麻烦各位帮我解答一下

发布网友 发布时间:2023-12-11 07:40

我来回答

3个回答

热心网友 时间:2024-12-14 11:02

第一题
Private Sub Command1_Click()
Dim s As Double
For i = 1 To Sqr(1 / (10 ^ -5))
s = s + 1 / (i * i)
Next i
Print s
End Sub

第二题

Option Base 1
Private Sub Command1_Click()
Dim a()
n = Len(Text1)
For i = 1 To n
x = Mid(Text1, i, 1)
If x = Chr(32) Then y = y + 1
Next i
Print "空格一共有:" & y & "个"
End Sub

第三题

Private Sub Command1_Click()
Dim a(10)
Randomize
x = 0
For i = 1 To 10
a(i) = Int(Rnd * 100)
If a(i) >= x Then x = a(i)
Print a(i)
Next i
Print "最大数为:"; x
End Sub

热心网友 时间:2024-12-14 11:02

第一题
i=1
Do Until 1/((i-1)*(i-1))<10^5
s=s+1/(i*i)
i=i+1
Loop
?s
第二题
For i=1 To Len(t$)
If Mid$(t$,I,1)=" " Then S=S+1
Next i
?s
第三题
Randomize Timer
Dim a(10)
For i=1 To 10
a(i)=Int(Rnd*100+1)
Next i
m=a(1)
For i=1 To 9
If a(i)<m Then a(i)=m
Next i
?m

热心网友 时间:2024-12-14 11:03

3我知道啊,就是RND~~随即数啊~
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
刺身怎么下刀? 养老护理员资格证的等级是什么 养老护理员证有几级啊 工行手机银行如何提前还房贷 工行手机银行提前还房贷操作 工行手机银行app可以提前房贷还款吗_工行手机银行提前还房贷步骤... 金龙八部是什么时出版的 天龙八部陈浩民那一年出版的 金庸作品集:天龙八部图书信息 puum243请到柜面、网银或手机银行修改密码? 超重被交警抓一般怎么处理 316不锈钢能用磁铁吸吗1 有哪位朋友知道山东沂水县汽车站坐车到许家湖镇东斜午怎么坐车?谢谢 &quot;菊爱之,陶后鲜有闻。莲爱之,同予者何人?牡丹之爱,宜乎众矣.&quot;的译文... 我正版消逝的光芒打了游侠的中文补丁,进入游戏后提示我加了MO... 只有精选速购才能申请微商从业资格证书吗? 新中国成立之后实行土地改革的法律依据是什么7 为什么给别人发信息会出现风险提示? 怎么修改第三次995 怎样在地图上留下轨迹?3 沈阳皇姑什么地方?2 用英语介绍足球项目,人物偶像梅西21 持咒之后回向给别人,他能知道吗? 足球运动员梅西的简历5 烟雾的介绍 足球明星梅西资料141 iphone7 home键坏了,怎么才能激活使用?183 colorsmoke怎么用 微商资格从业证怎么办理10 微商从业资格证书怎么申请条件 如何不用手机号注册 实况足球2016梅西踢什么位置5 以站在XX门外为题写一篇半命题作文! 支付宝财富v2最低多少万 持《大陆居民往来台湾地区通行证》和入台证可以入境香港吗? 驾考宝典每次都可以90分以上了考的过吗 都市阅读空间寻找什么三联生活周刊 可以修改几次70 我设置过一次了,还能改第二次吗?怎么改?270 可以改么?怎么改?772 在家怎么登西南大学校园网 手机屏幕用密码锁了怎么打开174 土地改革的法律依据是什么 实施土地改革开始的时间和法律依据是什么 316不锈钢能用磁铁吸吗1 我设置过一次了,还能改第二次吗?怎么改642 已经改过一次了,想再改一次,怎么改?503 华为手机怎么才能申请两个呀? 寄挂号信没给收据,什么东西都没给?怎么查信件到哪儿了? 如何跟对象谈结婚的事情22 西南大学校园网账号出问题后怎么办