For i=1 To 4 x=3 For j=1 to 3 For k=1 to 2 x=x+3 Next k Next j Next i text1.Value=Str(x) End Sub
人气：169 ℃ 时间：2020-05-20 01:43:01
解答
应该是21吧我想问一下：具体的解析步骤，我看不懂，不理解。For i=1 To 4`循环四次x=3`给x赋值，所以每当i进行下一次循环时，x都变为3，也就是说i循环几次与最后结果无关For j=1 to 3'循环3次For k=1 to 2'循环2次 x=x+3把原x值加3后再赋值给xNext kNext jNext i'完成循环text1.Value=Str(x)'文本框中text1的值为字符串格式的x。（我想应该是text1.text）End Sub实际上就是做了3*2=6次“加3”，也就是一共7个3，为21
推荐
- 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() 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() For i = 1 To 3 For j = i To 1 a = a + 1 Next j Next i Print a End Sub
- 求以地字开头爱字结尾的成语接龙
- 一汤匙多少克
- 闪电与雷声是同时产生的吗?
- 设集合P={3,4,5},Q=[4,5,6,7},定义P♁Q=｛（a,b)|a属于P,b属于Q｝,则P♁Q的真子集个数是多少?
- 商店运来一批电视机，卖出18台，卖出的台数与运来的台数的比是3：7．共运来电视机多少台？
猜你喜欢
