vf大神求指教~!编程题!1.编程求Fibonacci数列（即0,1,1,2,3,5,……）前30项和2.编程统计100―10000之间个位数是9的数的个数3.编程统计1000的正整数约数（因子）的个数（1和1000本身除外）cleara=0b=1s=0for i=1 to 28 c=a+bs=s+c
a=bb=cendfor?s2.clears=0for i= 100 to 10000t=s-学路网-学习路上 有我相伴
vf大神求指教~!编程题!1.编程求Fibonacci数列（即0,1,1,2,3,5,……）前30项和2.编程统计100―10000之间个位数是9的数的个数3.编程统计1000的正整数约数（因子）的个数（1和1000本身除外）cleara=0b=1s=0for i=1 to 28 c=a+bs=s+c
a=bb=cendfor?s2.clears=0for i= 100 to 10000t=s
来源：互联网 &责任编辑：鲁倩 &
用VF、VB和C语言编系统哪个更好?谢谢了,大神帮忙啊推荐VF,因为VF做小型数据库最合适不过了。当然也可以用VB结合ACCESS来做数据库,VB开发前台界面,用Access数据引擎保存数据。C语言做数据库编程一般要结合SQL数...关于VF连编的问题,请高手回答~~~检查一下DL的路径,用SetPathTO包含,看看项目中表单DL是否包含进去了有没有哪位高手给我发一题用VF编的小游戏代码,我们要用这考...VF嘛.自己编嘛.不然小心别人在里面加入病毒.那位高手用VF或VB给我编两句改变字体字号的程序vb:控件:commondialog1,command1,text1代码:PrivateSubCommand1_Click()CommonDialog1.Flags=cdlCFBothCommonDialog1.ShowFontText1.Font.Name=C...求高手,怎么在连编VF6.0项目时会出现缺少数据库文件呢?急急...检查一下你的Bms放到了什么地方去了,至少要跟项目文件在同一文件夹下吧,或者把这个数据库文件添加到项目中来vf大神求指教~!编程题!1.编程求Fibonacci数列（即0,1,1,2,3,5,……）前30项和2.编程统计100―10000之间个位数是9的数的个数3.编程统计1000的正整数约数（因子）的个数（1和1000本身除外）cleara=0b=1s=0fori=1to28c=a+bs=s+ca=bb=cendfor?s2.clears=0fori=100to10000t=s(图4)vf大神求指教~!编程题!1.编程求Fibonacci数列（即0,1,1,2,3,5,……）前30项和2.编程统计100―10000之间个位数是9的数的个数3.编程统计1000的正整数约数（因子）的个数（1和1000本身除外）cleara=0b=1s=0fori=1to28c=a+bs=s+ca=bb=cendfor?s2.clears=0fori=100to10000t=s(图11)vf大神求指教~!编程题!1.编程求Fibonacci数列（即0,1,1,2,3,5,……）前30项和2.编程统计100―10000之间个位数是9的数的个数3.编程统计1000的正整数约数（因子）的个数（1和1000本身除外）cleara=0b=1s=0fori=1to28c=a+bs=s+ca=bb=cendfor?s2.clears=0fori=100to10000t=s(图13)vf大神求指教~!编程题!1.编程求Fibonacci数列（即0,1,1,2,3,5,……）前30项和2.编程统计100―10000之间个位数是9的数的个数3.编程统计1000的正整数约数（因子）的个数（1和1000本身除外）cleara=0b=1s=0fori=1to28c=a+bs=s+ca=bb=cendfor?s2.clears=0fori=100to10000t=s(图15)vf大神求指教~!编程题!1.编程求Fibonacci数列（即0,1,1,2,3,5,……）前30项和2.编程统计100―10000之间个位数是9的数的个数3.编程统计1000的正整数约数（因子）的个数（1和1000本身除外）cleara=0b=1s=0fori=1to28c=a+bs=s+ca=bb=cendfor?s2.clears=0fori=100to10000t=s(图17)vf大神求指教~!编程题!1.编程求Fibonacci数列（即0,1,1,2,3,5,……）前30项和2.编程统计100―10000之间个位数是9的数的个数3.编程统计1000的正整数约数（因子）的个数（1和1000本身除外）cleara=0b=1s=0fori=1to28c=a+bs=s+ca=bb=cendfor?s2.clears=0fori=100to10000t=s(图24)这是用户提出的一个学习问题,具体问题为:vf大神求指教~!编程题!1.编程求Fibonacci数列（即0,1,1,2,3,5,……）前30项和求高手,怎么在连编VF6.0项目时会出现缺少数据库文件呢?急急...检查一下你的Bms放到了什么地方去了,至少要跟项目文件在同一文件夹下吧,或者把这个数据库文件添加到项目中来防抓取，学路网提供内容。2.编程统计100―10000之间个位数是9的数的个数用VF连编以后的工资管理系统,一点.exe出来的时候老有一个V...将下面这句放到主程序中(main.prg)_screen.visible=.f.&&不显示vfp窗口防抓取，学路网提供内容。3.编程统计1000的正整数约数（因子）的个数（1和1000本身除外）用VF编一系统登陆表单,输入用户名和密码并运行后显示程序错...主表单不存在多半是因为路径的问题,你用的是相对路径,请问1、路径设置了吗,2、是不是在与主程序同一路径,如果把表单放在forms里,do防抓取，学路网提供内容。cleara=0b=1s=0for i=1 to 28那位高手帮我用VF编个程序,能显示出九九乘法表,或者看看我这...clearFORI=1TO9FORJ=1TOI??STR(J,1)+&*&+STR(I,1)+&=&qu防抓取，学路网提供内容。c=a+bs=s+c
a=bb=cendfor我想请教各位VF高手啊,这儿有道程序设计题,我想了一下午都没...CLEAR**求100-999三位数的水仙花数**a,b,c为三位数的百、十、个位**FORi=100TO999?&三位数的防抓取，学路网提供内容。?s2.clear急！求VF大神！问：大神给帮个忙，解一下！分全给你！不胜感激！1.在SQL中，从数据库中删...答：1、B2、A3、A4、A5、D6、A7、B8、A9、C10、A11、B12、A13、B14、B15、防抓取，学路网提供内容。s=0for i= 100 to 10000看了好多还是晕晕的，VF中delete与drop的区别，到...答：delete可删除记录drop是修改该表结构的，删除不需要的字段防抓取，学路网提供内容。t=str(i)vf大神求指教~！！！编程题！！！问：1.编程求Fibonacci数列（即0,1,1,2,3,5,……）前30项和2.编程统计100―100...答：第1题的结果漏了第1项和第2项的和，所以答案少1。防抓取，学路网提供内容。m=substr(t,len(t))求vf大神解答。问：1、SETTALKOFFCLEARA=4？DOWHILEA&=1B=1DOWHILEB&A??A*B...答：1,,6,防抓取，学路网提供内容。if m="9" then编程大神这边看过来！！VF编写程序，怎样用dowhi...问：除了dowhile循环还有别的方法咩！~有的话帮忙写一下啦！~vf学的很费力...答：*inputtoni=1S=0dowhilei防抓取，学路网提供内容。s=s+1endifnext?s3.clear各位计算机大神，帮帮忙呀。。。用vf编写程序，从1...答：store0tos1,s2forn=1to100ifn%2=1s1=s1+nelses2=s2+nendifendfor?"1~100之间奇防抓取，学路网提供内容。s=0for i=2 to 999求大神解决这些VF题问：一、有一学生表由（学号、姓名、性别、年龄、院系）5个字段构成，请写出...答：学生表由（学号、姓名、性别、年龄、院系）（1）检索王红所在的院系和年龄select姓名,院系,年龄防抓取，学路网提供内容。if 1000%i=0 求大神指导啊，为什么在vf中运行表单会出现程序错...答：你是不是已经打开表单编辑器编辑该表单?不能运行正在编辑的表单防抓取，学路网提供内容。s=s+1endifnext?s这些答案都对不对啊?求解!按学号或姓名查询学生基本信息，哪个VF大神会，求教答：SELECT学生.姓名，成绩.成绩FROM学生，成绩；WHERE学生.学号＝成绩.学号；AND课程.课程名称＝‘计算机基疮；ORDERBY成绩.成防抓取，学路网提供内容。我们通过互联网以及本网用户共同努力为此问题提供了相关答案,以便碰到此类问题的同学参考学习,请注意,我们不能保证答案的准确性,仅供参考,具体如下:VF求大神解答怎么将查询结果保存在表里面啊...T_T答：查询去向～到表防抓取，学路网提供内容。用户都认为优质的答案:防抓取，学路网提供内容。第1题的结果漏了第1项和第2项的和,所以答案少1.所以不是s=0,而是s=a+b.建议用数组,直观最近一段时间，腾讯大数据火了，其原因就在于它发布了一个调查报告，报告显示，用iPhone手机的人一般都是无房无车学历低的潘浚媸钦庋穆穑拷衲晟习肽辏谘逗推还幕ロ〈笳较嘈糯蠹叶蓟褂∠笊羁蹋还3防抓取，学路网提供内容。CLEARDIMENSION f[30]为什么要清洁热水器？（以电热水器为例）电热水器表面上往往看不出污垢，清洗工作常常被忽略。但事实上，电热水器根据使用的水质情况不同，需要定期清洗水垢，热水器产生水垢，会影响电热水器使用效果，并且能耗高，防抓取，学路网提供内容。f[1]=0天然条件形成的，蓝莓狭义是指一群越橘属（Vaccinium）越橘亚属青液果组（学名：Cyanococcus）的开花植物，广义上可以包括越橘属中长有蓝色浆果的所有物种。蓝莓这些种的植物原生于北美洲与东亚防抓取，学路网提供内容。f[2]=1在前几年智能手机刚刚兴起的时候，智能手机的价格都很贵。而小米手机横空出世，以1999元的小米1手机杀入智能手机市场，率先开启了性价比优势，并且配以“为发烧而生”的宣传标语，短短一年内就迅速成为了国产知防抓取，学路网提供内容。s=f[1]+f[2]战狼2突破40亿这是一个什么概念呢？首先截止到目前为止，中国电影史上票房最高的电影是星爷导的《美人鱼》，票房33亿，也是唯一一部破30亿票房的电影，战狼2如果能破40亿，毋庸置疑票房第一的头衔自然落在防抓取，学路网提供内容。FOR i=3 TO 30解决生活中的问题，就找有调APP~本文由有调APP原创。「有调」是一个品质生活导购平台，这里有一群追求生活品质的年轻人，以独特新锐的视角、客观真实的评测，为向往美好生活的人，找寻真正值得买的好东西。作防抓取，学路网提供内容。
f[i]=f[i-2]+f[i-1]看视频的效果会更好一些，自己不懂的地方，别人几句话就给你讲明白的，更加高效，而且视频也比看书的视觉效果更好一些，以前在如鹏网上学习过，有详细的课程体系，可以看看，作为参考，作为借鉴；Java基础（ja防抓取，学路网提供内容。
s=s+f[i]谢邀请，驾驶证换证，分未扣完？如果是期满换证，C照是自动清除重新记录，C照以上要体检加学习（需要到交警队学习，因为要记录有效的学习时长），然后都是从新的记分周期开始都是清零状态。分，不能扣爆，到十二分防抓取，学路网提供内容。ENDFOR这个酒很难说价格，而且你这个图片不是你藏品的图就更难估价。因为我曾经为了寻找酱香老酒，所以我和职业的收酒人走街串巷收购过老酒，那一瓶老酒我们怎么来评估他的价格呢？第一是看稀有程度，越是稀有的价格越贵，防抓取，学路网提供内容。?s用VF连编以后的工资管理系统,一点.exe出来的时候老有一个V...将下面这句放到主程序中(main.prg)_screen.visible=.f.&&不显示vfp窗口用VF编一系统登陆表单,输入用户名和密码并运行后显示程序错...主表单不存在多半是因为路径的问题,你用的是相对路径,请问1、路径设置了吗,2、是不是在与主程序同一路径,如果把表单放在forms里,doformforms/主表单那位高手帮我用VF编个程序,能显示出九九乘法表,或者看看我这...clearFORI=1TO9FORJ=1TOI??STR(J,1)+&*&+STR(I,1)+&=&+STR(I*J,2)+&&ENDFOR?ENDFOR我想请教各位VF高手啊,这儿有道程序设计题,我想了一下午都没...CLEAR**求100-999三位数的水仙花数**a,b,c为三位数的百、十、个位**FORi=100TO999?&三位数的水仙花数分别为:&FORi=100TO999a=SUBSTR(ALLT...
相关信息：
- Copyright & 2017 www.xue63.com All Rights ReservedVB作业，界面都做好了，但是就是不知道怎么编写程序代码，求大神指教_百度知道
VB作业，界面都做好了，但是就是不知道怎么编写程序代码，求大神指教
VB作业，界面都做好了，但是就是不知道怎么编写程序代码，求大神指教。麻烦的话点拨一下也行，谢谢
我有更好的答案
需要的话 我给你写出来
就是在做计算机作业
实在做不来
采纳率：80%
来自团队：
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。会VB的大神们，帮忙做一道题_百度知道
会VB的大神们，帮忙做一道题
输入若干个数，统计负数的个数nfz，以及它们的平均值（约定：输入0时结束数据的录入）。 高一的信息题目，请不要太难的指令
我有更好的答案
Dim&aPrivate&Sub&Command1_Click()& & If&Text1.Text&&&&0&Then& & & & & & If&Abs(Text1.Text)&&&&Text1.Text&Then& & & & & & a&=&a&+&1& & & & End&If& & Else& & & & MsgBox&a& & End&IfEnd&Sub亲自给你做的，带图，不懂说话
采纳率：35%
我不会VB，我会VN
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。哪位大神会用VB做那种软件？_百度知道
哪位大神会用VB做那种软件？
主页面是一张照片~~直接点击人物头像就可以跳出详细资料~~我们毕业做的同学通讯录~~详解~~
我有更好的答案
这个可以用Image控件做 因为Image控件在不加载图片的时候是透明的 你把它逐个放在你想点击弹出详细资料的地方 然后再在其对应的点击程序中加入弹出资料的语句就可以了Private Sub Image1_Click(Index As Integer)
select case index
‘弹出资料的语句
‘弹出资料的语句
end selectend sub因为我也不知道 你说的跳出详细资料指的是什么 所以也没有办法再详细说明了 ，有什么不明白的可以再问
采纳率：70%
来自团队：
为您推荐：
其他类似问题
您可能关注的内容
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。10:37 提问
哪位大神可以帮我讲解一下这个vb程序啊 ，感激不尽
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = InchesToPoints(0.8)
.BottomMargin = InchesToPoints(0.8)
.LeftMargin = InchesToPoints(0.8)
.RightMargin = InchesToPoints(0.8)
.Gutter = InchesToPoints(0)
.HeaderDistance = InchesToPoints(0.5)
.FooterDistance = InchesToPoints(0.5)
.PageWidth = InchesToPoints(8.5)
.PageHeight = InchesToPoints(11)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.GutterPos = wdGutterPosLeft
Selection.Sections(1).Headers(1).PageNumbers.Add PageNumberAlignment:= _
wdAlignPageNumberRight, FirstPage:=True
Dim quote As String
Dim Keyword As String
Dim j As Integer
quote = """"
Dim found_key As Boolean
Dim startSearch As Long
Dim endSearch As Long
Open "C:\Users\shuqi\Desktop\新建文本文档.txt" For Input As #1
Set myRange = ActiveDocument.Content
Do While Not EOF(1) ' Loop until end of file.
Set myRange = ActiveDocument.Content
endSearch = myRange.End
Input #1, Keyword
With myRange.Find
.Text = Keyword
.Forward = True
.MatchWholeWord = True
.MatchCase = False
While myRange.Find.Execute
myRange.Collapse wdCollapseEnd
Set myIndexEntry = myRange.Fields.Add(myRange, Type:=wdFieldIndexEntry, _
Text:=quote & Keyword & quote)
startSearch = myRange.End
startSearch = startSearch + 7
Set myRange = ActiveDocument.Content
myRange.Start = startSearch
If startSearch = endSearch - 1 Then
GoTo skip_while
With myRange.Find
.Text = Keyword
.Forward = True
.MatchWholeWord = True
.MatchCase = False
' this code is because I had a loop here
If j = 300 Then
myRange.Bold = True
skip_while:
Close #1 ' Close file.
myRange.Start = 0
myRange.End = 0
With ActiveDocument
.Indexes.Add Range:=myRange, HeadingSeparator:= _
wdHeadingSeparatorNone, Type:=wdIndexIndent, RightAlignPageNumbers:= _
True, NumberOfColumns:=1, IndexLanguage:=wdEnglishUS
.Indexes(1).TabLeader = wdTabLeaderDots
按赞数排序
如果你的英语老师死得早，你也可以请教下英文词典。
开头几句给你翻译下，别的去请教你的英语老师：
With ActiveDocument.PageSetup 活动文档的页面设置
.LineNumbering.Active = False 行号的不要
.Orientation = wdOrientPortrait 纸张纵向
.TopMargin = InchesToPoints(0.8) 顶端边距
.BottomMargin = InchesToPoints(0.8) 底端边距
.LeftMargin = InchesToPoints(0.8) 左边距
.RightMargin = InchesToPoints(0.8) 右边距
.Gutter = InchesToPoints(0) 装订线
.HeaderDistance = InchesToPoints(0.5) 页眉距离
.FooterDistance = InchesToPoints(0.5) 页脚距离
.PageWidth = InchesToPoints(8.5) 纸张宽度
.PageHeight = InchesToPoints(11) 纸张高度
.FirstPageTray = wdPrinterDefaultBin 首页装纸盘
.OtherPagesTray = wdPrinterDefaultBin 其它页装纸盘（这里解释下，有时候我们封面比如说用牛皮纸，其他页用打印纸，那么这两个设置就很有用）
.SectionStart = wdSectionNewPage 选区开始
.OddAndEvenPagesHeaderFooter = False 单页和双页区分页眉页脚
呵呵，你要是经常和代码打交道的话，英语一般般，这些属性基本上一看就知道个大概。
要是想逐一弄懂都是什么意思，可以安装下面步骤：
录制一段宏（专录页面设置部分），随便设置几项内容，结束宏后查看代码然后逐一对应看是什么意思，
有不懂的属性直接在vba窗口内打开对象浏览器然后搜索相关的属性，看看是如何使用的。
Sub Macro1()
' Macro1 Macro
由 MicroDDD 录制
With ActiveDocument.Styles(wdStyleNormal).Font
If .NameFarEast = .NameAscii Then
.NameAscii = ""
.NameFarEast = ""
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientLandscape
.TopMargin = CentimetersToPoints(3.17)
.BottomMargin = CentimetersToPoints(3.17)
.LeftMargin = CentimetersToPoints(2.54)
.RightMargin = CentimetersToPoints(2.54)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.5)
.FooterDistance = CentimetersToPoints(1.75)
.PageWidth = CentimetersToPoints(29.7)
.PageHeight = CentimetersToPoints(21)
.FirstPageTray = wdPrinterAutomaticSheetFeed
.OtherPagesTray = wdPrinterAutomaticSheetFeed
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
.LayoutMode = wdLayoutModeLineGrid
呵呵，我的word技巧还有不少是我的英语老师教我的。
准确详细的回答，更有利于被提问者采纳，从而获得C币。复制、灌水、广告等回答会被删除，是时候展现真正的技术了！
其他相关推荐