vb自定义过程 输出m行n列的星星

利用循环嵌套打印m行n列的星星方阵，m和n的值自己输入。利用c++~

这样就好了？：
#include using namespace std;int main(){int nRow, nCol;cin >> nRow >> nCol;for (int indexRow = 0; indexRow < nRow; ++indexRow){for (int indexCol = 0; indexCol < nCol; ++indexCol){cout << "*";}cout << endl;}return 0;}

Private Sub Form_click()
Dim xi()
n1 = 3
m1 = 3
ReDim xi(n1, m1)
Picture1.Print "A: "
For i = 1 To n1
For j = 1 To m1
xi(i, j) = Int(Rnd * 10)
Picture1.Print Tab(15 * j); xi(i, j);
Next j
Picture1.Print
Next i
End Sub

Public Function DEC_BIN(ByVal Dnum As Long) As String      '十进制转二进制的函数，参数为Long型数，返回一个字符串
  Dim xx As String        '定义字符串变量xx，存储返回的字符串
  Dim yy As Integer       '定义一个整型变量yy，存储计算过程中产生的临时结果
  xx = ""      '先将返回的字符串置为空
  Do While Dnum > 0       '使用do循环，结束条件为输入的值变为<=0
    yy = Dnum Mod 2      'yy存放Dnum取余2的结果
    Dnum = Dnum \ 2      'Dnum将自己整除2后再赋值给自己
    xx = Trim(Str(yy)) & xx      '将yy转化为字符串后累加给xx，高位在前
  Loop
  DEC_BIN = xx      '最后将计算的结果赋值给DEC_BIN，作为返回值
End Function

---

广宁县15999762588： vb自定义过程 输出m行n列的星星 - ？
厍磊德特： Public Function DEC_BIN(ByVal Dnum As Long) As String '十进制转二进制的函数,参数为Long型数,返回一个字符串 Dim xx As String '定义字符串变量xx,存储返回的字符串 Dim yy As Integer '定义一个整型变量yy,存储计算过程中产生的临...

广宁县15999762588： 如何用vb程序输出一行五个星号和一列五个星号? - ？
厍磊德特： 楼主可不可以把问题说得确切些?Private Sub Command1_Click()'输出一行5个星号 Me.Cls Print String$(5, ＂*＂) End Sub Private Sub Command2_Click()'输出一列5个星号 Dim i As Long Me.Cls For i = 1 To 5 Print ＂*＂ Next End Sub

广宁县15999762588： VB,编写一个SUB过程,要求将m行n列的二维数组转置后输出 - ？
厍磊德特： 并不难.设本来有:Private Sub Command1_Click() Dim a(3, 2) As Integer For i = 1 To 3 For j = 1 To 2 a(i, j) = 2 * i + j'我随意设的值 Next Next For i = 1 To 3 For j = 1 To 2 Print a(i, j); ＂ ＂; Next Print Next Call Conv(a, 3, 2) End Sub'以下为转置过程 ...

广宁县15999762588： 如何用VB循环语句编写输出星星阵型 - ？
厍磊德特： 实心 Private Sub Command1_Click() n = InputBox(＂请输入n的值＂, ＂输入＂) For i = 1 To 2 * n - 1 s = Abs(n - i) Print Space(s) & String(2 * n - 1 - s * 2, ＂*＂) Next i End Sub 空心 Private Sub Command1_Click() n = InputBox(＂请输入n的...

广宁县15999762588： 用vb编写一个过程star(x,y).例如star(2.3),输出2行3列的星花矩阵 - ？
厍磊德特： Sub star(x, y) Dim i As Integer For i = 1 To x Print String(y, ＂*＂) Next End Sub

广宁县15999762588： VB中输出已知矩阵A()矩阵A是m行n列的矩阵. - ？
厍磊德特： Option Base 1 Private Sub Command1_Click() Dim a%(), b%() n = InputBox(＂列数n=＂) m = InputBox(＂行数m=＂) ReDim a%(m, n) For i = 1 To m For j = 1 To n a(i, j) = Int(Rnd * 100) Next j Next i For i = 1 To m For j = 1 To n Print Tab(6 * (k...

广宁县15999762588： 如何用VB实现星号的奇数排列,如第一行输出1个*,第二行输出***……依次类推?用FOR循环,不胜感激! - ？
厍磊德特： dim n as integer dim i as integer dim j as integer n=val(text1.text)'假设用text控件接收输出*的行数,也可以自己写个 for i=1 to n for j=1 to 2*i-1 print '*'; '不要少了分号 next j print '换行 next i

广宁县15999762588： Vb输出星星 - ？
厍磊德特： j = 0 For i = 4 To 1 Step -1 Print Space(j); String(i, ＂★＂) j = j + 1 Next

广宁县15999762588： 急求一个自定义函数的程序,其功能输出一行n个星号,并在主函数中调 - ？
厍磊德特： #include <stdio.h> void out(int n) { int i; for(i=1;i<=n;i++) printf(＂*＂); } void main() { int n; scanf(＂%d＂,&n); out(n); }

广宁县15999762588： 利用循环嵌套打印m行n列的星星方阵,m和n的值自己输入.利用c++ - ？
厍磊德特： 这样就好了?:#include using namespace std; int main() { int nRow, nCol; cin >> nRow >> nCol; for (int indexRow = 0; indexRow < nRow; ++indexRow) { for (int indexCol = 0; indexCol < nCol; ++indexCol) { cout << ＂*＂; } cout << endl; } return 0; }