VB求大神帮我分析一下这道题。怎么做呢？_百度知道
VB求大神帮我分析一下这道题。怎么做呢？
提问者采纳
楼主程序单步跟踪自能理解更深面我简单解释程 先计算fun(i,j)a=1,b=2结a=3,b=5,fun=8再按照fun(3,5)计算结a=11,b=19,fun=30b参数按值传递改变值所i=11j=2k=30+11+2=43
谢谢你～我越分析越乱，，你帮我理清了思路。之后还望多多指教
你好，能否再帮我分析一下这个？我这些地方搞不明白？
提问者评价
太给力了，你的回答完美地解决了我的问题，非常感谢！
来自团队：
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB简单题，求大神帮我分析一下！这道题function中X K的初值是1还是0？这类什么时候为1-中国学网-中国IT综合门户网站
> VB简单题，求大神帮我分析一下！这道题function中X K的初值是1还是0？这类什么时候为1
VB简单题，求大神帮我分析一下！这道题function中X K的初值是1还是0？这类什么时候为1
转载 编辑：李强
为了帮助网友解决“VB简单题，求大神帮我分析一下！这道题f”相关的问题，中国学网通过互联网对“VB简单题，求大神帮我分析一下！这道题f”相关的解决方案进行了整理,用户详细问题包括:RT,我想知道:VB简单题，求大神帮我分析一下！这道题function中X K的初值是1还是0？这类什么时候为1，具体解决方案如下：解决方案1：如果有多次调用的话X的初始值为0（Static 变量，下次调用时的初始值就是上一次调用该函数结束时该变量的值），K的初始值是调用时形参传递过来的（传过来的是1）解决方案2：怎么看传递过来时是1，是不是因为fun(x,y,1)解决方案3：是的。解决方案4：太给力了，你的回答完美地解决了我的问题，非常感谢！通过对数据库的索引,我们还为您准备了：答：楼主你好 程序最好是单步跟踪，这样自己能理解更深。 下面我简单解释一下过程。 先计算fun(i,j) a=1,b=2 结果a=3,b=5,fun=8 再按照fun(3,5)计算 结果a=11,b=19,fun=30 因为b参数按值传递，不改变值，所以i=11，j=2 k=30+11+2=43===========================================问：题目是将text1中的温度转换成华氏在text2中显示 我的答案是 Private Sub...答：VB这门语言.在类型上做了很多自动转换 Text2.Text = Text1 * 9 / 5 + 32 这样,VB自动将里面的值换成整形,没有小数部份 用VAL 强形转换成前面结果的类型 如有小数部份 在计算的结果f也是有小数的 在用CSTR强形将小数值换成字符型 你的那样计算只...===========================================问：题目是将text1中的温度转换成华氏在text2中显示 我的答案是 Private Sub...答：Private Sub Sub1(A() As Integer) Dim N As Integer, K As Integer, I As Integer, J As Integer N = UBound(A, 1) '返回数组第1维的上届 For I = 1 To N - 2 '外出循环次数=1 For J = I To N - 1 '内存循环次数=2 A(I, J) = K + 1 'J=1：A(1,1...===========================================问：题目是将text1中的温度转换成华氏在text2中显示 我的答案是 Private Sub...答：答案： 17 178 178 程序执行的只要步骤 1、fun(15768): 进入else中，执行 fun(15768 \ 100) * 10 + 15768 mod 10, 因为7，第一次，递归执行 fun(157) 2、fun(157): 同上，第二次 递归执行 fun(1), 执行 fun= x mod 10 =1,这里第二次...===========================================问：就是这样了，嗯。后天就要二级考试啦，才想起来要复习。。可是真题卷上...答：command1里： a=array(1,2,3,4,5) 这个不用说了： 最后print a（i），这个也不用说了，就是把a里的数据挨个输出（如果没有变化，应该第一个是1，第二是2，。。。）； 主要是调用 这句：call sub1（a，3） sub1（x，n）里有个循环的调用 sub1（x...===========================================问：求大神给编一个简单点的Vb程序，内容不限，必须自己编写的，老师让每个...答：自己应该有个目的。直接抄别人的没有意义。起码，你想实现什么简单的功能。然后，即使是看别人的程序，也是带着问题去的，也是学习和探索的过程。编写抽奖Lucky-7程序最简单。你可以模仿下。===========================================问：求大神给编一个简单点的Vb程序，内容不限，必须自己编写的，老师让每个...答：1) For i = 2 To 100 Step 2 2) s = s + i 3) Print "s=" & s===========================================问：VB题， 大学VB 第5题，详细分析一下，这道题如何做？详细解释一下 我在...答：d) x=iif(逻辑表达,结果1,结果2） 逻辑表达为真时，返回结果1，否则返回结果2 对字符串进行比较时只比较字符串第一个字母的ascii码的大校===========================================问：要求在窗体上建立一个文本框，文本框内容为'颜色设置效果展示’，当用户...答：一块人民币的报酬，给你代码。 理论上免费支持。这个难点就是弹出颜色设置对话框比较难办，其他的都容易。===========================================
本文欢迎转载，转载请注明：转载自中国学网： []
用户还关注求VB大神帮忙做一道题。要有算法分析；然后设计直观、可操作性强的界面；上机编程和调试后，进行结果总结_百度知道
求VB大神帮忙做一道题。要有算法分析；然后设计直观、可操作性强的界面；上机编程和调试后，进行结果总结
1~9九数三组每数字能重复即每组三数字许重复许同其组三数重复要求每组三数组平数
提问者采纳
笨：Option ExplicitPrivate Sub Command1_Click()&&& Dim i As Integer, j As Integer, k As Integer, m As Integer, n As Integer&&& Dim a() As Integer&&& Dim g As Integer, s As Integer, b As Integer&&& Dim x1 As Integer, x2 As Integer, x3 As Integer&&& '枚举 123
789 所平数且要求每平数十百位重复&&& m = 0&&& For i = 123 To 789&&&&&&& If Sqr(i) = Int(Sqr(i)) Then&&&&&&&&&&& GetGSB i, g, s, b&&&&&&&&&&& If g && s And s && b And g && b Then&&&&&&&&&&&&&&& m = m + 1&&&&&&&&&&&&&&& ReDim Preserve a(m)&&&&&&&&&&&&&&& a(m) = i&&&&&&&&&&&&&&& 'Debug.Print m, a(m)&&&&&&&&&&& End If&&&&&&& End If&&& Next&&& '顺序抽取数1&&& Dim t(1 To 9)&&& For i = 1 To m - 2&&&&&&& For n = 1 To 9&&&&&&&&&& t(n) = n&&&&&&& Next&&&&&&& x1 = a(i)&&&&&&& g = 0&&&&&&& s = 0&&&&&&& b = 0&&&&&&& GetGSB x1, g, s, b&&&&&&& t(g) = 0&&&&&&& t(s) = 0&&&&&&& t(b) = 0&&&&&&& '余顺序抽取数2并比较数2否重复数字&&&&&&& For j = 1 To m - 1&&&&&&&&&&& If j && i Then&&&&&&&&&&&&&&& x2 = a(j)&&&&&&&&&&&&&&& g = 0&&&&&&&&&&&&&&& s = 0&&&&&&&&&&&&&&& b = 0&&&&&&&&&&&&&&& GetGSB x2, g, s, b&&&&&&&&&&&&&&& If t(g) && 0 And t(s) && 0 And t(b) && 0 Then&&&&&&&&&&&&&&&&&&& t(g) = 0&&&&&&&&&&&&&&&&&&& t(s) = 0&&&&&&&&&&&&&&&&&&& t(b) = 0&&&&&&&&&&&&&&&&&&& '再余顺序抽取数3并比较数3否重复数字&&&&&&&&&&&&&&&&&&& For k = 1 To m&&&&&&&&&&&&&&&&&&&&&&& If k && i And k && j Then&&&&&&&&&&&&&&&&&&&&&&&&&&& x3 = a(k)&&&&&&&&&&&&&&&&&&&&&&&&&&& g = 0&&&&&&&&&&&&&&&&&&&&&&&&&&& s = 0&&&&&&&&&&&&&&&&&&&&&&&&&&& b = 0&&&&&&&&&&&&&&&&&&&&&&&&&&& GetGSB x3, g, s, b&&&&&&&&&&&&&&&&&&&&&&&&&&& If t(g) && 0 And t(s) && 0 And t(b) && 0 Then&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& Print x1, x2, x3, "别", Sqr(x1), Sqr(x2), Sqr(x3), "平"&&&&&&&&&&&&&&&&&&&&&&&&&&& End If&&&&&&&&&&&&&&&&&&&&&&& End If&&&&&&&&&&&&&&&&&&& Next&&&&&&&&&&&&&&& End If&&&&&&&&&&& End If&&&&&&& Next&&& NextEnd Sub'解十百Sub GetGSB(ByVal n As Integer, ByRef g As Integer, ByRef s As Integer, ByRef b As Integer)&&& b = n \ 100&&& s = (n \ 10) Mod 10&&& g = n Mod 10End Sub&结：
提问者评价
O(∩_∩)O谢谢
其他类似问题
为您推荐：
算法分析的相关知识
其他1条回答
叫每组三数组平数例3平+4平=5平
例如169三个数组成一组，这个数是13的平方数
比如任意三个不重复数字 a
100*a+10*b+c就是这个数 再判断这个数开方是不是整数，如果不是重新组合b a
100*b+10*a+c 如此循环，同时其他2组一样，注意判断数字不重复
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB程序设计，求大神指导，最好有过程，万分感谢！每个题都做一下。也可写在纸上拍下来，谢_百度知道
VB程序设计，求大神指导，最好有过程，万分感谢！每个题都做一下。也可写在纸上拍下来，谢
提问者采纳
Dim a(0 To 100, 0 To 100) As VariantPrivate Sub Command1_Click()l = 1a(0, 0) = 1For i = 1 To Text3 - 1a(i, 0) = 1For j = 1 To la(i, j) = a(i - 1, j - 1) + a(i - 1, j)Next jl = l + 1Next il = 0m = Text3 + 1For i = 0 To Text3m = m - 1Picture1.Print Space(2 * m);For j = 0 To lPicture1.Print a(i, j); Space(1);Next jPicture1.Printl = l + 1Next iEnd SubPrivate Sub Command2_Click()l = 1a(0, 0) = 1For i = 1 To Text3 - 1a(i, 0) = 1For j = 1 To la(i, j) = a(i - 1, j - 1) + a(i - 1, j)Next jl = l + 1Next iFor i = 0 To Text3 - 1For j = 0 To lPicture2.Print a(i, j); Space(1);Next jl = l + 1Picture2.PrintNext iEnd Sub
提问者评价
太给力了，你的回答完美解决了我的问题！
其他类似问题
为您推荐：
vb程序设计的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB数学口算计分程序（本人大一新生,只是学基础,希望大神不要给出太高深的答案.晚生跪求了、、、）做一个速算100以内数的加减运算题目：要求在2分钟内统计出计算题目个数及正确比率.若_百度作业帮
VB数学口算计分程序（本人大一新生,只是学基础,希望大神不要给出太高深的答案.晚生跪求了、、、）做一个速算100以内数的加减运算题目：要求在2分钟内统计出计算题目个数及正确比率.若
VB数学口算计分程序（本人大一新生,只是学基础,希望大神不要给出太高深的答案.晚生跪求了、、、）做一个速算100以内数的加减运算题目：要求在2分钟内统计出计算题目个数及正确比率.若一个题目在10秒不能计算,则自动出新题目并按不会处理.若在10秒内计算出来,则自动出下一个题目.将错误题目保存到文本文件中,并提示用户是否重做,如果重做,可将题目重新调出重复上述步骤.在此抹泪了、、、、
这个东西恐怕没人愿意回答,这相当于做一个软件了.这个是要付费的
好吧，还得靠自己，谢啦！