VB一题代码看不懂_百度知道
VB一题代码看不懂
请问这个代码的原理是啥呢?
我有更好的答案
就是把二维数组最后一列移到第一列,change()过程实现单行最后一列移到第一列。要看懂,你还要具备很多知识,比如什么是传值、什么是传地址、ubound()的作用等。Private&Sub&Form_Click()Dim&a(3,&3)&As&IntegerDim&i&As&Integer,&j&As&Integer,&k&As&Integerk&=&1For&i&=&1&To&3&For&j&=&1&To&3&&a(i,&j)&=&k&&k&=&k&+&1&&Print&a(i,&j);&Next&PrintNextPrintFor&i&=&1&To&3&Call&change(a(),&i)NextFor&i&=&1&To&3&For&j&=&1&To&3&&Print&a(i,&j);&Next&PrintNextEnd&SubSub&change(a()&As&Integer,&i&As&Integer)x&=&a(i,&UBound(a))For&k&=&UBound(a)&-&1&To&1&Step&-1&a(i,&k&+&1)&=&a(i,&k)Nexta(i,&1)&=&xEnd&Sub
采纳率:73%
来自团队:
我也看不懂
为您推荐:
其他类似问题
换一换
回答问题,赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。vb习题,请大家告诉我括号里的答案是怎么做出来的?程序我看不懂_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名:今日本吧第个签到,本吧因你更精彩,明天继续来努力!
本吧签到人数:0成为超级会员,使用一键签到本月漏签0次!成为超级会员,赠送8张补签卡连续签到:天&&累计签到:天超级会员单次开通12个月以上,赠送连续签到卡3张
关注:109,452贴子:
vb习题,请大家告诉我括号里的答案是怎么做出来的?程序我看不懂收藏
快试试吧,可以对自己使用挽尊卡咯~◆◆
执行下面的Command1_Click事件过程后,Text1中显示的内容是(11.01.3002),Text2中显示的内容是(LAUSIV)。
Private&Sub&Command1_Click()
&Dim&S&As&String,I&As&Integer
Const&Ch&As&String=&.&
S=&2L0A03U.1SI0V.1I&
For&I=1&To&Len(S)
If&InStr(Ch,Mid(S,I,1))=0&Then
Text1=Mid(S,I,1)&Text1
Else
Text2=Text2&&&Mid(S,I,1)
End&If
Next&I
End&Sub
3.执行下面程序,单击Command1按钮后,窗体上的第一行内容是&(27&3),第二行内容是(18&3),最后一行内容是(Lcm&=&27)。
Private&Sub&Command1_Click()
Dim&N&As&Integer,M&As&Integer,Lcm&As&Integer
N&=&9
M&=&27
Lcm=Recursion(N,M)
Print&&Lcm=&;Lcm
End&Sub
Private&Function&Recursion(A&As&Integer,B&As&Integer)As&Integer
Static&k&As&Integer
k=k+1
If&A&Mod&B&=&0&Then
Recursion&=&A
Else
Recursion&=&Recursion(A+A/k,B)
End&If
Print&A,k
k=0
End&Function
4.执行下面程序,当单击Command1后,列表框中显示的第一行是(3),第二行是(7&),第三行是(&23)。
Private&Sub&Command1_Click()
Dim&x&As&Integer,k&As&Integer
x&=&483
k&=&2
Do&Until&x&=1
If&x&Mod&k&=&0&Then
x&=&x\k
List1.AddItem&Str(k)
Else
k=k+1
End&If
Loop
End&Sub
5.执行下面程序,单击命令按钮Command1后,窗体上显示的第一行内容是(10&4&6),第二行内容是(56&28&28)&,最后一行内容是(k=66)
Private&Sub&Command1_Click()
Dim&A&As&Integer,K&As&Integer
A&=&2
K=Fun((A),A)+&Fun(A,A)
Print&K=&;K
End&Sub
Private&Function&Fun(X&As&Integer,Y&As&Integer)As&Integer
Static&K&As&Integer
K&=&K+X+y
X&=&X+Y
Y=Y+K
Fun&=&X+Y
Print&FX;Y
End&Function
6.执行下面程序,窗体上显示的第二行是(4&5&6),单击命令按钮Cmd1,则窗体上显示的第四行是(1&6&7),第五行是(8&5&2),第六行是(3&4&9)。
Option&Explicit
Opton&Base&1
Private&a(3,3)As&Integer
Private&Sub&Form_Activate()
Dim&i&As&Integer,j&As&Integer,k&As&Integer
k&=&1
For&j=1&To&3
For&i=1&To&3
a(i,j)=k
k=k+1
Print&a(i,j);
Next&i&
Print
Next&j
End&Sub
Private&Sub&Cmd1_Click()
Dim&b(4)&As&Integer,i&As&Integer,k&As&Integer,t&As&Integer
For&i=2&To&4
b(i)=i-1
Next&i
b(1)=2
For&i=1&To&2
t=a(b(1),b(4))
a(b(1),b(4))=a(b(2),b(1))
a(b(2),b(1))=a(b(3),b(2))
a(b(3),b(2))=a(b(4),b(3))
a(b(4),b(3))=t
Next&i
For&i=1&To&3
For&k&=1&To&3
Print&a(i,k);
Next&k
Print
Next&i
End&Sub
有点多,没办法,快考试了,请大家帮忙吧
登录百度帐号VB编程题,刚学VB还不懂,帮忙看看怎么写代码_百度知道
VB编程题,刚学VB还不懂,帮忙看看怎么写代码
VB编程题,刚学VB还不懂,帮忙看看怎么写代码在代码中自动加载一个标签的标题和文本框的文本,单击〃修改〃命令按钮后使标签中的标题和文本框中的文字变大
我有更好的答案
Private Sub Command1_Click()Label1.FontSize = Label1.FontSize + 3Text1.FontSize = Text1.FontSize + 3End Sub
采纳率:75%
来自团队:
为您推荐:
其他类似问题
您可能关注的内容
换一换
回答问题,赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。vb题,看不懂,求耐心大神!_百度知道
vb题,看不懂,求耐心大神!
窗体上有两个名称分别为Text1、Text2的文本框。Text1 的KeyUp事件过程如下:
Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer)
Dim c As String
c = UCase(Chr(KeyCode))
Text2.Text=Chr(Asc(c)+2)
当向文本框Text1中输入小写字母...
我有更好的答案
答案是C当向文本框Text1中输入小写字母a时,文本框Text2中宣示的是C,因为代码首先转换为大写,然后在+2,表示是A的后两个字符,也就是C:c = UCase(Chr(KeyCode))Text2.Text=Chr(Asc(c)+2)
chr()是转化为字符ucase()是转化为大写asc()+2
是转化为数字再加2,就是指这个大写的后面2个了char()又转化为字符所以选C了
本回答被网友采纳
C。。。。。。。。。。。。。。。
为您推荐:
其他类似问题
换一换
回答问题,赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。}