Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k x = 5 Print m(2 + m(x))
Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k x = 5 Print m(2 + m(x))
VB的一個(gè)程序
VB的一個(gè)程序
其他人氣：324 ℃時(shí)間：2020-01-29 05:48:25
優(yōu)質(zhì)解答
Private Sub command1_click() Dim m(10)For k = 1 To 10m(k) = 11 - k Next k x = 5 Print m(2 + m(x))這就是個(gè)繞彎子的程序,沒什么意義,考你的理解能力的.嚴(yán)格的說,這個(gè)程序可能有錯誤,Dim m(10)應(yīng)該改成Dim m...
我來回答
類似推薦
- Private Sub Command0_Click() Dim a(10, 10) For m = 2 To 4 For n = 4 To 5 a(m, n) = m * n Next n Nex
- Private Sub Command1_Click() x=0 n=InputBox("") For i=1 To n For j=1 To i x=x+1 Next j Next i Print
- Private Sub Command1_Click() For i=1 To 4 x=4 For j =1 To 3 x=3 For k=1 To 2 x=x+6 Next k Nex
- Private Sub Command1_Click() For i = 1 To 3 For j = i To 1 a = a + 1 Next j Next i Print a End Sub
- 甲乙兩數(shù)和是50 ,甲數(shù)的3倍于乙數(shù)的4倍的和是165,甲乙兩數(shù)是多少?
- 罐頭廠要給水果罐頭做一種圓柱形的包裝盒,已知這個(gè)罐頭盒的底面半徑為5cm,高6cm,同時(shí)要在盒的外面貼一
- 等腰三角形腰和底邊長的比是3：2,若底邊長為6,則底邊上的高是多少?腰上的高是多少?
- 填成語啊..平( )無( ) ,形（ ）影（ ） ,（）云（）霧
- 一個(gè)圓柱高9分米，側(cè)面積226.08平方分米，它的底面積是多少平方分米？
- 已知cosa=1/7,cos(a+b)=13/14.且a,b屬于（0,派/2）
- 2.3g鈉由原子變成離子時(shí),失去的電子數(shù)為0.1NA(要過程)
- 新陳代謝旺盛是什么意思
猜你喜歡
- 1一個(gè)德語問題
- 2隨機(jī)變量的概率密度問題
- 3一條褲子，原價(jià)120元，提價(jià)30%以后，又因過季降價(jià)30%，現(xiàn)在售價(jià)是多少？
- 4夜間,可看到池水能倒影路燈,若池水深2米,路燈距水面8米燈在水面的像到燈的距離應(yīng)
- 51.將一個(gè)長方體平均截成5段,每段長5分米,表面積增加了120平方分米.原來長方體的體積是多少立方分米?
- 6調(diào)節(jié)水龍頭，讓水一滴滴流出，在下方放一盤子，調(diào)節(jié)盤子高度，使水滴碰到盤子時(shí)，恰有另一水滴開始下落，而空中還有一滴正在下落的水滴，測出水龍頭到盤子的高度為h（m），從第一
- 7冬天窗戶上為什么會有水蒸氣
- 8質(zhì)量為m的木塊放在水平傳送帶上,隨傳送帶一起向前運(yùn)動,木塊與傳送帶間的動摩擦因數(shù)為μ,則下列說法正
- 9再勇敢些,用英文怎么說.be more modest,對嗎,
- 10已知命題p：方程x2+mx+1=0有兩個(gè)不等的負(fù)實(shí)根，命題q：方程4x2+4（m-2）x+1=0無實(shí)根，若p或q為真，p且q為假，則實(shí)數(shù)m的取值范圍是（ ） A.（1，2]∪[3，+∞） B.（1，2）∪（3，+∞） C.（1，2]
- 11（1）若不等式組（1）x+ab 的解集是-2
- 1264噸硫最能能制取多少硫酸?