VB自学编程成功的大神，求大神解决一下

来源：蜘蛛抓取(WebSpider) 时间：2018-03-24 08:34 标签： 编程解决问题
创建一个VB程序，程序应该完成如下功能，定义一个可实现求阶乘的名为fact的函数，并且建立主程序通过调用用户自定义函数fact计算1/1!+1/3！+1/5!+1/7!+1/9!的值，最后将结果输出显示在消息对话框msgbox中
　　创建一个VB程序，程序应该完成如下功能，定
创建一个VB程序，程序应该完成如下功能，定义一个可实现求阶乘的名为fact的函数，并且建立主程序通过调用用户自定义函数fact计算1/1!+1/3！+1/5!+1/7!+1/9!的值，最后将结果输出显示在消息对话框msgbox中
　　创建一个VB程序，程序应该完成如下功能，定义一个可实现为大奖赛打分的名为dafen的Sub过程。设大奖赛有七个评委打分，对一名参赛者，输入七个评委的打分分数，去掉一个最高分和一个最低分后，求出的平均分为该参赛者的得分，建立主程序输入七个评委的打分，通过调用SUB过程dafen来实现参赛者得分的计算，输出显示在标签框label上。
全部答案（共2个回答）
自己去VBGOOD论坛找，都有成品的。
是作业吧？还是自己写的好，至少写一些问题代码发出来让别人修改吧。。。
int jiecheng(int a)
{ int s=a;
for(;a&1;a--)
s=s*(a-1);
Private Sub Command1_Click()
Dim a As Integer, sum As Integer
For i = 0 To...
谁都渴望自己的老婆是处女，但是如果爱上的女人不是处女，也能接受。只不过，女的别再提以前的事情就好了。
我想这是大部分人的想法，特殊的情况就不好总结咯。
答: 现在网上有很多免费的，我在今年2月份的时候，就用过比邻的，研究了几天，搞了模拟器，在网上自学了很多，最终没有引到几个人，后来决定放弃脚本引流方式，在今年的3月份...
答: 通过他，攻击者能神不知鬼不觉地下载和上传目标机器上的任意文件，并能执行一些特别的操作
答: 应该不是的吧
大家还关注
Copyright &
Corporation, All Rights Reserved
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区
相关问答：123456789101112131415我需要VB编程大神帮一下忙。_百度知道
我需要VB编程大神帮一下忙。
我有更好的答案
jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="http://a.hiphotos://a.baidu.com/zhidao/wh%3D600%2C800/sign=bf3d8fb4ec368a91e129/203fb80e7bec54ebe389b504ec26afd.jpg" esrc="http://a.hiphotos.hiphotos.baidu.com/zhidao/pic/item/203fb80e7bec54ebe389b504ec26afd.baidu<a href="http
以上是窗体，Form1代码。
以上是标准模块Module1代码。
以上是运行界面及运行效果。
采纳率：80%
需要联系我 价格最低
vb编程可以解决
什么时候要？
其他1条回答
为您推荐：
其他类似问题
您可能关注的内容
&#xe675;换一换
回答问题，赢新手礼包&#xe6b9;
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。欢迎加入我们，一同切磋技术 &
用户名： &&&
密　码： &
共有 194 人关注过本帖
标题：[求助] 求大神帮解答一下，一直不太会这个怎么用
等　级：新手上路
帖　子：18
结帖率：33.33%
&&已结贴√
&&问题点数：20&&回复次数：4&&&
[求助] 求大神帮解答一下，一直不太会这个怎么用
用vb6写了一个小软件，处理excel数据，中间有个过程有点复杂，就把这段写成了function，
有个问题一直很困惑：我Command1_Click()中新建的excel文件中的sheet，我想在function中with该sheet，我该怎么写？？
我的写法如下，运行时提示我“&&With sheets（1）”这句有变量未定义，这种functiong该怎样控制当前表格？？
Private Sub Command1_Click()&&&'五、5
Dim xlApp As Excel.Application
Dim ulBook As Excel.Workbook
Dim ulSheet As Excel.Worksheet
Dim i As Integer
Dim k As Integer
Set xlApp = CreateObject(&Excel.Application&)
Set ulBook = xlApp.Workbooks.Add
Set ulSheet = ulBook.Worksheets(1)
'此处省略一些无用代码
With ulSheet
&&& For i = 8 To 12
&&&&&&&&&.Activate
&&&&&&&&&.Cells(i + 2, k) = Answer1(i, k)&&&&&&&&& 'Answer1()是我的自定义方程，如下
ulBook.Close (True)
xlApp.Quit
Set xlApp = Nothing
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'自定义函数
Private Function Answer1(ROW1 As Integer, COL1 As Integer)&&&&&
Dim A, AB As Double
Dim CO, i&&, K As Integer
&&With sheets（1）&&'问题所在：根据传递的行、列两个参数，我想在这个新建的表格里做修改，怎样with到当前的sheet？？？
&&& For CO = 1 To 5
&&&&&&A = .Cells(ROW1, CO+ 15) * A
&A = A * .Cells(ROW1, COL1)
&AB = .Cells(ROW1, COL1) * .Cells(ROW1+1, 5）
&&&End With
&&Answer1 = A + AB&&
End Function
等　级：版主
帖　子：270
专家分：409
&&得分:20&
回复 楼主 start1901
把以下3个变量定义为公共变量试试：
Dim xlApp As Excel.Application
Dim ulBook As Excel.Workbook
Dim ulSheet As Excel.Worksheet
Private Sub Command1_Click()&&&'五、5
'Dim xlApp As Excel.Application
'Dim ulBook As Excel.Workbook
'Dim ulSheet As Excel.Worksheet
'自定义函数
Private Function Answer1(ROW1 As Integer, COL1 As Integer)&&&&&
Dim A, AB As Double
Dim CO, i&&, K As Integer
&‘ With sheets（1）&&'问题所在：根据传递的行、列两个参数，我想在这个新建的表格里做修改，怎样with到当前的sheet？？？
With ulSheet
&&& For CO = 1 To 5
&&&&&&A = .Cells(ROW1, CO+ 15) * A
&A = A * .Cells(ROW1, COL1)
&AB = .Cells(ROW1, COL1) * .Cells(ROW1+1, 5）
&&&End With
&&Answer1 = A + AB&&
End Function
[此贴子已经被作者于 07:36编辑过]
等　级：贵宾
威　望：82
帖　子：891
专家分：5111
局部变量和公共变量的区别，这部分复习一下就好了
等　级：新手上路
帖　子：18
回复 2楼 HVB6
这是一个好办法，解决了我当前的问题，谢谢啊
等　级：新手上路
帖　子：18
回复 2楼 HVB6
还有一个方法，是把xlapp传递到方程中，亲测可行，我也是刚学的，分享给您
版权所有，并保留所有权利。
Powered by , Processed in 0.063504 second(s), 8 queries.
Copyright&, BCCN.NET, All Rights Reserved

我要回帖

更多关于 编程解决问题 的文章

 

随机推荐