VB_编程练习(答案)(4)

idec = idec \\ ibase Loop

TrDec = strDecR

'********** End ************* End Function

Private Sub Form_Load() Show

Print TrDec(45, 2)

Print TrDec(45, 8) ' 分别输出 Print TrDec(45, 16) End Sub

'题目：(事件)单击窗体。

' (响应)输出一个如图所示的由数字组成的倒三角形 ' 请将结果存入变量S中

(要求利用msgbox函数显示结果，使用for...next语句完成程序) '------------------------------------------------- Private Sub Form_Click() Dim s As String

'***************** Program ************** Dim tmp As String

Dim i As Integer, j As Integer tmp = \

For i = 10 To 1 Step -1 For j = 0 To i - 1

tmp = tmp & CStr(j) Next

tmp = tmp & vbCrLf Next

MsgBox tmp s = tmp

'*************** End ************************* End Sub