Vb题目求解,求大神们速解. 在线等_百度知道
Vb题目求解,求大神们速解. 在线等
求出列和最小的列。2，将其显示在列表框1中。再找出其中的同构数. 随机产生20个1000以内的正整数,显示”相同,显示”不同。显示在文本框1中.用输入函数inputbox()输入一个5到15之间的整数N.”、写出以下自定义过程(过程过程，数字范围在1到120之间。3,4两题)1, 用递归的方式产生斐波那契数列的前N项.(相同时.”)四，再求表达式：1，也分别显示在文本框1中.随机产生一个4位正整数. 求一个固定数组中元素的最大值以及它所在的行.输入一个正整数N。将它们显示在窗体上!的值。求出行和最大的行！+2, 判断一个数是否为升序数 ！+……+N。3.随机生成一个4行5列的二维数组、写出以下完成指定功能的程序完整代码(任选两题)1, 不同时。2.、列号4,3或2，分两行显示在图片框1中三.判断一个N位整数的各位上数字是否相同,任选1
提问者采纳
额，这位同鞋，题目在哪呢？我咋没看到
刚打完,已经出来了
这个是第一题：&&&&&&&&Try&&&&&&&&&&&&Dim&x&As&Long&=&TextBox1.Text&&&'得到文本框的数值&&&&&&&&&&&&Dim&f(TextBox1.TextLength&-&1)&As&Long&&'定义一个数组，数组大小为输入数值的长度&&&&&&&&&&&&For&i&=&1&To&f.Length&-&1&&&&&&&'将数值的每一个数拆分出来赋值给数组&&&&&&&&&&&&&&&&f(i)&=&Mid(x,&i,&1)&&&&&&&&&&&&Next&&&&&&&&&&&&'&====================================下面是判断是否是升序的方法&&&&&&&&Dim&max&As&Long&=&f(0)&&&&&&&&&&&&For&i&=&0&To&f.Length&-&1&&&&&&&&&&&&&&&&If&max&&=&f(i)&Then&&&&'从第一个数开始对比,下一个数是不是比前一个数大&&&&&&&&&&&&&&&&&&&&&'是就赋值给变量&max&继续对比&,因第一次是&&第一个f(0)&数&和&第一个数&f(0),所以要加等号&&&&&&&&&&&&&&&&&&&&max&=&f(i)&&&&&&&&&&&&&&&&&&&&Label1.Text&=&&这个数是升序&&&&&&&&&&&&&&&&&Else&&&&&&&&&&&&&&&&&&&&Label1.Text&=&&这个数不是升序&&&&&&&&&&&&&&&&&&&&&Exit&For&&&&&'如果不是就退出，已经不再需要对比了&&&&&&&&&&&&&&&&End&If&&&&&&&&&&&&Next&&&&&&&&Catch&ex&As&Exception&&&&&&&&&&&&MsgBox(ex.Message)&&&&&&&&End&Try
按着要求来就好三做1,3四任选两题谢谢.做完了我再拉20分给你
这是第三题：&&&&&&&&&&& '&& Dim arry() As Long = {36, 34} '随便定义一个数组，&&&&&&&&&&& Dim arry() As String&&&&&&&&&&& arry = TextBox1.Text.Split(&,&)&& '为了方便测试，用一个文本框以逗号分割成数组 ,也可以用上面定义的数组&&&&&&&&&&& Dim max As Long = arry(0)&& '定义最大数值变量，从第一个数开始&&&&&&&&&&& Dim line As Long&&&&&&&&&&& For x = 0 To arry.Length - 1&&&&&&&&&&&&& '最大数判断&&&&&&&&&&&&&&& If max & arry(x) Then&&&&&&& '判断如果下一个数比 max 大 &&&&&&&&&&&&&&&&&&& max = arry(x)&&&&&&&&&&&& '则 重新赋值 即可得到最大数&&&&&&&&&&&&&&&&&&& line = x + 1&&&&& '记录所在位置，因为数组是从0开始，所以+1&&&&&&&&&&&&&&& End If&&&&&&&&&&& Next&&&&&&&&&&& Label1.Text = &最大数值是： & & max & & 所在位置是： & & line&&&&&&&&&&& Dim lin As Long '行（列）记录&&&&&&&&&&& Dim mix As Long = arry(0)&&& '此变量也可以使用上面定义的 max ,这里是为了容易理解&&&&&&&&&&& For x = 0 To arry.Length - 1&&&&&&&&&&&&&&& If mix & arry(x) Then&&&&&&&&&&&&&&&&&&& mix = arry(x)&&&&&&&&&&&&&&&&&&& lin = x + 1&&&&&&&&&&&&&&& End If&&&&&&&&&&& Next&&&&&&&&&&& Label2.Text = &最小数值是： & & mix & && 所在位置是： & & lin
能把编程的代码直接复制一下吗?这样不好复制.下面两题也是,谢谢了
代码我已复制上去了，你不能直接使用的，你要先建一个doc文档，将从百度知道复制来的代码复制到文档中进行排版，然后复制到编程器里就可以使用了
提问者评价
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁一道计算机二级VB填空题，哪位大神帮我分析一下。。_百度知道
一道计算机二级VB填空题，哪位大神帮我分析一下。。
//f.hiphotos，才想起来要复习.hiphotos。拜托大神帮我一步一步分析一下，谢谢了.jpg" />就是这样了.jpg" esrc="http。可是真题卷上有好多不会做的呀./zhidao/wh%3D600%2C800/sign=/zhidao/pic/item/a2cc7cd98d85b7ba0e7bec54e7976f.baidu://f。.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="http。后天就要二级考试啦。<a href="http，嗯./zhidao/wh%3D450%2C600/sign=1c1fdd8fb4ec348f91e127/a2cc7cd98d85b7ba0e7bec54e7976f://f.hiphotos
提问者采纳
t=x（1） 就是：a=array(1，3）sub1（x，这个也不用说了，就是把a里的数据挨个输出（如果没有变化，最后n=1时结束：if里
t=x（1） 就是。，输出结果：n=3，3,2，3，4；第一次当n=3时；主要是调用 这句,4，5）所以，,3，1,就是第一次， 就是x（2）=1所以第一次就是，5）第二次当n=2时。）,5)
这个不用说了，最终是 a=（2，4，n）里有个循环的调用 sub1（x：最后print a（i），第二是2：t=a（1）=1x（1）=x（n-1）就是 x（1）=x（2）=2然后将x（n-1）=t， 就是x（1）=2等于没有变化所以，应该第一个是1；变成a=（2：t=a（1）=2x（1）=x（n-1）就是 x（1）=x（1）=2然后将x（n-1）=t，1：call sub1（a，将
a中的数据a（1）和a（2）位置换了个。，接着还要循环使用n=2，n-1）command1里，第二行和第三行应该分别是 1
提问者评价
谢谢你的解释瞬间就会啦~灰常的贴心呀~
其他类似问题
为您推荐：
计算机二级的相关知识
其他1条回答
3变化后a=array(2
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁求大神帮忙这道vb，第四题第一问_百度知道
求大神帮忙这道vb，第四题第一问
随机产生10个数据，范围是30到90，存入文本文件Data.txt
Dim a(10) As Integer
For i = 1 To 10
a(i) = Int(Rnd() * 90 + 10)
str = str & a(i) & &quot,
My; &quot, &quot. UBound(b)
For i = 1 To UBound(b)
pm = pm + (Val(b(i)) - avg) ^ 2
str = str & &puter.FileS标准平方差是&quot.WriteAllText(&quot.txt&1,;)
Dim b() As String = Split(temp, res, False)
Dim temp As String = My.FileSystem.ReadAllText(&1;)
D &quot, pm As Double
For i = 1 To UBound(b)
sum = sum + Val(b(i))
avg = sum / & Sqrt(pm)
TextBox6Dim str As String = &quot
这个运行不出来。。。我也搜到了这个
其他类似问题
为您推荐：
其他2条回答
rivate Sub Form_click()Dim a%;d:/Data.txt& For Output As #1For i = 1 To 10a = Int(Rnd * 61 + 30)Print #1, a, i%Open &quot
Private Sub Command1_Click()RandomizeOpen &E:&#92;1.txt& For Output As #1For i = 1 To 10Print #1, Int(61 * Rnd) + 1Next iEnd Sub
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁急求，，哪位大神帮我做一下这个VB题啊，在线等~~~_百度知道
急求，，哪位大神帮我做一下这个VB题啊，在线等~~~
//g.com/zhidao/wh%3D450%2C600/sign=641d6caa708bc8f6feefcb//zhidao/wh%3D600%2C800/sign=ae739a7c9d3df8dca5eb3/b90e7bec54e736d1ffc2d46269bc.hiphotos.baidu.baidu:///zhidao/pic/item/b90e7bec54e736d1ffc2d46269bc.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="http.hiphotos.jpg" esrc="http://g<a href="http
提问者采纳
强烈建议你还是自己好好学学吧.14159 * Text1.text.代码如下.Text * Text1.text，text2：Private Sub Command1_Click()Text2.14159 * Text1.Text = 3.Text = 2 * 3，text3，学会VB还是挺方便的.TextEnd SubPrivate Sub Command2_Click()Text3。假设3个文本框分别为text1。这么简单的都不会啊、Command2，按键为Command1.text ？ 最基本的操作了
提问者评价
谢谢了 没好好学，哎
来自团队：
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁