求高人帮忙把C语言程序转VB程序……谢谢

Question

#include<stdio.h>
void main()
{
int a,b,c;
char ch='A';
for(a=1;a<=9;a++)
{
for(b=0;b<a-1;b++)
printf(" ");
for(c=0;c<18-(a-1)*2;c++)
printf("%c",ch);
ch++;
putchar(10);
}
}小弟对VB程序研究不多  急需答案
寻高人帮忙  谢谢

Answer 1

在工程里添加一个模块，粘贴下面的代码
然后再工程的属性里面，设置启动模块为 Sub Main然后按下 Ctrl+G ，打开立即窗口，按下F5 就可以看到结果了Option ExplicitPublic Sub Main()
 Dim a As Integer, b As Integer, c As Integer
 Dim ch As Integer
 ch = Asc("A")
 For a = 1 To 9
  For b = 0 To a - 1
   Debug.Print " ";
  Next
  For c = 0 To 16 - a - a
   Debug.Print Chr(ch);
  Next
  ch = ch + 1
  Debug.Print ""
 Next
End Sub AAAAAAAAAAAAAAA
  BBBBBBBBBBBBB
   CCCCCCCCCCC
    DDDDDDDDD
     EEEEEEE
      FFFFF
       GGG
        H
         

Answer 2

运行结果是
 AAAAAAAAAAAAAAA
  BBBBBBBBBBBBB
   CCCCCCCCCCC
    DDDDDDDDD
     EEEEEEE
      FFFFF
       GGG
        H
         

Answer 3

Private Sub Command1_Click()
dim i As Integer
Cls
Print
For i = 1 To 9
Print Tab(10 + i); String(20 - i * 2, Chr(65 + i - 1))
Next i
End Sub直接打印在窗体了，效果如下
 AAAAAAAAAAAAAAAAAA
  BBBBBBBBBBBBBBBB
   CCCCCBBBCCCCCC
    DDDDDBBBDDDD
     EEEEBBBEEE
      FFFFFFFF
       GGGGGG
        HHHH
         II

Answer 4

AAAAAAAAAAAAAAAAAA 
 BBBBBBBBBBBBBBBB 
  CCCCCBBBCCCCCC 
   DDDDDBBBDDDD 
    EEEEBBBEEE 
     FFFFFFFF 
      GGGGGG 
       HHHH 
        II

Answer 5

首先你要搞清楚VB和VC是不一样的，所以不能完全的翻译的。
就你的程序而言，在VC中应该是在控制台程序，因为Windows程序是 WinMain 启动的，
VB的就不能这么弄（不是说VB写不了控制台程序，而是很麻烦）。'#include <stdio.h>   VB里不需要这么引用
'通常的VB程序默认启动对象是窗口，如果需要从 Main 入口函数启动程序的话，需要
'更改VB工程的启动对象，在工程属性里可以选择启动对象，选 Sub Main，然后添加
'一个模块，在模块中就可以自己建立 Sub Main 入口了。
Sub Main()                                   'void main()
                                             '{
Dim TempStr As String                        ' //因为VB的输出是一次一行，不能一个字一个字符的输出，
                                             ' //所以将输出内容放到 TempStr 变量里最后一次输出完成
Dim a As Integer, b As Integer, c As Integer ' int a,b,c;
Dim ch As Byte                               ' char ch='A';   //这里不能对变量初始化
ch = Asc("A")                                ' //这里补一个初始化，将字符转换为 ASCII 码放到字节变量里
For a = 1 To 9                               ' for(a=1;a <=9;a++)
                                             ' {
   For b = 0 To a - 1                        '    for(b=0;b <a-1;b++)
      TempStr = TempStr & " "                '       printf(" ");   //VB的输出和VC控制台模式不一样，所以将结构放到变量里
   Next b                                    ' //VB的For必须有Next
   For c = 0 To 17 - (a - 1) * 2             '    for(c=0;c <18-(a-1)*2;c++)
      TempStr = TempStr & Chr(ch)            '       printf("%c",ch);  //这里和上面的理由差不多，只是需要将 ASCII 码转换为字符
   Next c                                    ' //VB的For必须有Next
   ch = ch + 1                               '    ch++;
   TempStr = TempStr & vbCrLf                '    putchar(10);   //VB里的换行是 vbCrlf
Next a                                       '}
Debug.Print TempStr                          ' //这里做最后的输出
End Sub                                      '}
其实，这段程序在VB中有VB的特色写法的，代码可以简化很多Sub Main()
Dim TempStr As String
Dim a As Integer
Dim ch As Byte
ch = Asc("A")
For a = 1 To 9
   TempStr = TempStr & String(a, " ")
   TempStr = TempStr & String(18 - (a - 1) * 2, Chr(ch + (a - 1)))
   TempStr = TempStr & vbCrLf
Next a
Debug.Print TempStr
End Sub
查看效果可以在立即窗口查看，立即窗口在视图菜单中可以调用出来