再问一个VB题……OTL（已解决^_^）

我只会C或者C++的程序写法,VB没学过T_T

...........不用vb用basic可以吗...........只在小学是学过...现在被迫改语言了...
字符里的空格用_表示
new
DIM  T%,A$,J%,F$ 
  for  T=1    to  6 
  A$="_";IF  T    MOD    2=1  THEN    F$="_ _"        ELSE    F$="_ -"
  FOR  J=1  TO  T   
  A$=A$+RIGHT$(STR$(J),1)
  PRINT  F$;A$
  NEXT  J
  PRINT 
  NEXT  T
  END
RUN
似乎是这样  basic的编译器不知飞到哪里去了无法确认(而且没用过vb...当年学校的机都是386......)
大概是两个变量 T是从1 到6 另一个J是 1  到 T
把 J变成字符放到A行成"  1","    12","    123".......(用两个循环我想不到不把数字变字符就可以做出的方法);由你的样例不难看出奇数行全是空  偶数行全有减号 所以给个判断偶数都加上"-"就这样输出似乎就可以 了
我学的时候程序中除了定义要用$  程序中字符型都要加上$  如果vb不需要就去掉

还有程序首部该加什么就加什么吧...忘记要不要加new了...

啊!!!!!!!!信息学联赛  又一次提高组失利  保送无望拉!!!!!!!!![:Orz:]

采用Form上直接输出的方式，打印该图形

Private Sub Form_Load()

    Dim i, j  As Integer
    Dim str As String
    Dim line As String
   
    Form1.AutoRedraw = True '自动刷新<-True，这样打印到Form的时候就会显示，否则不会显示
    Form1.CurrentX = 10    'X从10处开始输出
    Form1.CurrentY = 10    'Y从10处开始输出
   
    For i = 1 To 6          '纵向6次循环
        str = ""
        line = ""
        For j = 1 To i      '横向根据纵向次数循环
            str = str & CStr(j) '组成1 12 123 ...类似的字符串
           
            '偶数行输出 -
            If i Mod 2 = 0 Then
                line = line + " - " + str
            Else
                line = line + "  " + str
            End If
        Next j
        Form1.Print line    '打印该行
    Next i

End Sub

嗯 yellowmices君的解答貌似和VB的代码不太一样 王二君的解答打印成功 ^_^ 就是在line = line + "  " + str
把空格再多加一个就对齐了^_^
谢谢你们~~~

................vb  ..........basic ............

看来语言过时了............................  有点对不起的样子

.......发泄一下.

program lt;
var  i,j,p:integer;
begin
    for i:=1 to  6 do
  begin
      if  i  mod  2=0  then    f:='    -'  else  f:='      ';
      for j:=1 to i do
      begin
      write(f, '    ');
      for p:=1 to j do
      write(p);
    end;
      writeln;
    end;
end.  [:Wakeup:]

[:-_-b:] 呵呵
问下……这个是什么语言呢？

....万恶的Pascal  (....不知为什么用一个发明压强的人做程序的名字....)

Delphi已经死了……Pascal没有未来，囧。。。

楼上NOIP的话也还是去C系列吧……囧

...............虽然说delphi和pascal已经退出历史舞台了........但是能拿分就可以了....[:^^1:]
(保送啊[:Cry:] )

小pa自从3.  4年前被老师从basic诱拐转入  用这个搞算法已经习惯了  看来一时间是改不了了............                上了大再改也不迟..........