求大侠帮忙……怎么用VB.NET做一个随机抽人名的程序?
2011-05-06
展开全部
Private Sub Form_Load()
Dim a, b, c As Integer
Text1.Text = ""
For a = 1 To 9
For b = 1 To a
c = b * a
Text1.Text = Text1.Text & b & "*" & a & "=" & c & ";"
Next b
Text1.Text = Text1.Text & Chr(13) & Chr(10)
Next a
End Sub
1*1=1;
1*2=2;2*2=4;
1*3=3;2*3=6;3*3=9;
1*4=4;2*4=8;3*4=12;4*4=16;
1*5=5;2*5=10;3*5=15;4*5=20;5*5=25;
1*6=6;2*6=12;3*6=18;4*6=24;5*6=30;6*6=36;
1*7=7;2*7=14;3*7=21;4*7=28;5*7=35;6*7=42;7*7=49;
1*8=8;2*8=16;3*8=24;4*8=32;5*8=40;6*8=48;7*8=56;8*8=64;
1*9=9;2*9=18;3*9=27;4*9=36;5*9=45;6*9=54;7*9=63;8*9=72;9*9=81;
另外,虚机团上产品团购,超级便宜
Dim a, b, c As Integer
Text1.Text = ""
For a = 1 To 9
For b = 1 To a
c = b * a
Text1.Text = Text1.Text & b & "*" & a & "=" & c & ";"
Next b
Text1.Text = Text1.Text & Chr(13) & Chr(10)
Next a
End Sub
1*1=1;
1*2=2;2*2=4;
1*3=3;2*3=6;3*3=9;
1*4=4;2*4=8;3*4=12;4*4=16;
1*5=5;2*5=10;3*5=15;4*5=20;5*5=25;
1*6=6;2*6=12;3*6=18;4*6=24;5*6=30;6*6=36;
1*7=7;2*7=14;3*7=21;4*7=28;5*7=35;6*7=42;7*7=49;
1*8=8;2*8=16;3*8=24;4*8=32;5*8=40;6*8=48;7*8=56;8*8=64;
1*9=9;2*9=18;3*9=27;4*9=36;5*9=45;6*9=54;7*9=63;8*9=72;9*9=81;
另外,虚机团上产品团购,超级便宜
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询