VB大神们神啊救救我吧下载！！！

来源：蜘蛛抓取(WebSpider) 时间：2018-05-11 14:18 标签： 神啊救救我吧
谁救救我吧，我做vb快疯了！！万分感谢啊！_百度知道
谁救救我吧，我做vb快疯了！！万分感谢啊！
编写程序，利用随机函数生成一个6 行6列的整型数组（数据在100内），找出某个指定行内最大元素所在的列号。实验要求：求指定行内最大元素所在的列号用Function过程实现。然用InputBox函数输入行号，调用Function过程后输出该行最大元素的列号。
我有更好的答案
Dim a(6, 6)Private Sub Command1_Click()For i = 0 To 5For j = 0 To 5a(i, j) = Int(100 * Rnd)Print a(i, j),Next jPrintNext iEnd SubPrivate Sub Command2_Click()c = CInt(InputBox(&输入要查找的行&, , &1&)) - 1Print &第& & (c + 1) & &行的最大值位于第& & findmax(c) + 1 & &列&End SubPrivate Sub Form_Load()Command1.Caption = &生成&Command2.Caption = &查找&End SubPublic Function findmax(ByRef row) As Integerm = a(row, 0)findmax = 0For j = 1 To 5If a(row, j) & m Then findmax = jNext jEnd Function
采纳率：50%
你在哪里做vb啊，推荐些题目给我好不？Dim a(6, 6) As Integer
For i = 0 To 5
For p = 0 To 5
randomize()
a(i, p) = CInt(Rnd() * 100)
Dim s As Integer
s = InputBox(&请输入行号&)
Dim Ma As Integer = 0
Dim Lie As Integer
For i = 0 To 5
If Ma & a(s - 1, i) Then
Ma = a(s - 1, i)
Lie = i + 1
MsgBox(Lie)
不是说要调用function吗，我就是这儿弄不懂，谢谢你再帮个忙嘛，感谢啊
噢，写进过程不就行了：Private Sub Button2_Click
Dim a(5, 5) As Integer
For i = 0 To 5
For p = 0 To 5
Randomize()
a(i, p) = CInt(Rnd() * 100)
Dim s As Integer
s = InputBox(&请输入行号&)MsgBox(GetMax(a, s))
Private Function GetMax(ByVal X(,) As Integer, ByVal Hang As Integer) As Integer
Dim Ma As Integer = 0
Dim Lie As Integer
For i = 0 To 5
If Ma & X(Hang - 1, i) Then
Ma = X(Hang - 1, i)
Lie = i + 1
Return Lie
End Function下面抄我的还抄的真爽，连我填错的a（6，6）也一并吵了- -
看代码： Private Sub Command1_Click() Dim Sn As Double, k As Double Dim a As Integer, n As Integer, i As Integer Randomize a = 1 + Int(9 * Rnd) n = 5 + Int(6 * Rnd) For i = 1 To n Sn = Sn + a * 10 ^ (i - 1) + k k = a * 10 ^ (i - 1) + k Next Print &a=& & a, &n=& & n, &Sn=& & Sn End Sub 说明： 1、Sn是n项和 2、因Sn、k初值为0，故i=1时，Sn=a k=a 3、i=2时，Sn=a+a*10+k=a+aa k=aa 4、i=3时，Sn=a+aa+a*10^2+k=a+aa+aaa k=aaa 。。。。。。。。 效果见图。符合你的要求，给分！！！
为您推荐：
其他类似问题
救救我吧的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
下载作业帮安装包
扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
vb 冒泡排序,快救救我吧.我都混乱死了.到底计算机每一步怎么算出来的?不如 对 2 5 1 6 3 4 这几个书,从大到小 和从小到大怎么冒出来的?亲写出全部过程,给100分.从大大小 是不是 第一次：5 2 1 6 3 4 第二次：5 2 6 1 3 4 第三次 5 6 2 1 3 4 第四次 6 4 2 1 3 一次类推?请全部写出每一步!
作业帮用户
扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
计算机冒泡排序法是用两层循环,外循环i=1到5,内循环j=6到i.排序的思路是先把六个中最大的排到第一个,然后把剩下五个中最大的排到第二位,再把剩下四个中最大的排到第三位,以此类推执行过程如下第一次外循环,i=1,进入内循环,从第六到第一每次取两个数出来比较,如果大小顺序不对就换位
第一次内循环比较第五个和第六个就是3和4,顺序不正确换位
第二次内循环比较第四个和第五个就是6和4,顺序正确不换位
第三次内循环比较第三个和第四个就是1和6,顺序不正确换位
第四次内循环比较第二个和第三个就是5和6,顺序不正确换位
第五次内循环比较第一个和第二个就是2和6,顺序不正确换位
第一次外循环结束,可以看到最大的6排到了第一位第二次外循环,i=2,进入内循环,从第六到第二每次取两个数出来比较
第一次内循环比较41,顺序正确不换位
第二次内循环比较34,顺序不正确换位
第三次内循环比较54,顺序正确不换位
第四次内循环比较25,顺序不正确换位
5排到第二位第三次外循环,i=3,从第六到第三每次取两个数出来比较
第一次内循环比较31,顺序正确不换位
第二次内循环比较43,顺序正确不换位
第三次内循环比较24,顺序不正确换位
654231第四次外循环,i=4,从第六到第四每次取两个数出来比较
第一次内循环比较23,顺序不正确换位
第二次内循环比较21,顺序正确不换位
654321第五次外循环,i=4,从第六到第四每次取两个数出来比较
第一次内循环比较21,顺序正确不换位
654321完毕
为您推荐：
其他类似问题
扫描下载二维码vb的一个变态问题！救救我吧！_百度知道
vb的一个变态问题！救救我吧！
Private Sub Command1_Click()
dim conn As New ADODB.Connection
dim rs As New ADODB.Recordset
conn.Open &Provider=Microsoft.Jet.OLEDB.4.0;Data Source=& _
& App.Path & &\aaa.mdb& & &;Jet OLEDB:Database Password=&
strSQL = &select * f...
我有更好的答案
strSQL = &select top 1 a,b from table where a='& & text1.text & &'&rs.Open strSQL, conn, 3, 3Do Until rs.EOFmshflexgrid1.AddItem Chr(9) & rs.Fields(2) & Chr(9) looprs.close
为您推荐：
其他类似问题
您可能关注的内容
救救我吧的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。救救我的VB吧！【西华大学吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：248,155贴子：
救救我的VB吧！收藏
我对VB只知道它是编写程序的，期末哪们办！！！
订西华大学,携程保证低价,住酒店每间夜送100元消费券,返现高达201元.订西华大学,真实用户点评,免费预订,到店付款,方便快捷,省钱又省心!
去看道排序题吧……
完全不会……
已经重修的表示。。。
考试很水的…么怕，
登录百度帐号

我要回帖

更多关于 神啊救救我吧 的文章

 

随机推荐