access中vba代碼設計的六個問題

m為整數，n為整數

m = Int(Rnd() * 100)

n = Int(Rnd() * 100)

如果m & gt那麽

溫度= m

m = n

n =溫度

如果…就會結束

如果m模2 = 0，則

m = m + 1

如果…就會結束

對於i = m到n步驟2

調試。打印I

然後

末端接頭

第二個:

私有子命令3_Click()

我。定時器間隔= 500

標簽2。FontBold = True

標簽2。FontItalic = True

末端接頭

私有子命令4_Click()

我。TimerInterval = 0

標簽2。FontBold = False

標簽2。FontItalic = False

末端接頭

私有子窗體_定時器()

標簽2。ForeColor = RGB(Int(Rnd() * 256)，Int(Rnd() * 256)，Int(Rnd() * 256))

末端接頭

第三個:

私有子命令2_Click()

Dim i為整數，s為整數，q為整數

對於i = 1到99步驟2

s = s + i

然後

對於i = 2到98第二步

q = q - i

然後

Text0 = s + q

末端接頭

第四個:

公共子項目2()

Dim a1為整數，a2為整數，s為整數

A1 = Val(InputBox("請輸入A1 "))

A2 = Val(InputBox("請輸入A2 "))

對於i = a1到a2步驟2

如果我模2 = 1，那麽

s = s + i

如果…就會結束

然後

MsgBox s

末端接頭

第五個:

公共子項目3(a為單個，b為單個，c為單個)

Dim p表示單身，s表示單身

如果a+b & gt；c和a+c & gt；b和b+ c & gt；那麽

p = (a + b + c) / 2

s = Sqr(p * (p - a) * (p - b) * (p - c))

MsgBox“三角形面積是”&；s

其他

MsgBox“不能形成三角形！”

如果…就會結束

末端接頭

第六個:

私有子命令4_Click()

Dim c為字符串，I為整數

對於i = Len(Text0)到1的步長-1

c = c + Mid(文本0，I，1)

然後

Text2 = c

末端接頭