某VB程序代码如下：n=Val(Text1.Text)sum=nk=4DoWhilen\k>0sum=sum+n\k n=n\k+nmodkLoopText2._刷题宝

题干

某 VB 程序代码如下：
n=Val(Text1.Text)
sum=n
k=4
Do While n\k>0
sum=sum+n\k
n=n\k+n mod k
Loop
Text2.Text=Str(sum)
在文本框 Text1中输入10，执行该程序段后，文本框 Text2中显示的值是（）

A．12

B．13

C．14

D．16

上一题下一题 0.99难度选择题更新时间:2019-05-07 09:15:25

答案(点此获取答案解析）

同类题1

在VB程序中，如果要在一行内写多条语句时，语句之间应该用分隔。

同类题2

有如下VB程序段
m=a(1)
For t=2 to 15 step 2
If a(t) > m then m=a(t)
Next t
该程序段执行后，变量t的值是（）

同类题3

Sub test12()
S=0
Do While c <=5
C ="C" + 1
S=S+C
Loop
MsgBox (STRC、 + STR(S))
End Sub
该程序的运行结果是（）

同类题4

有一个单击按纽过程，其作用是产生50个60～100的随机数，统计其中被6整除余2的个数，并将这些数输出。请补充下面的程序：

Private Sub command1_click( )

Dim X, N As Integer
Dim count As Integer ' count用来保存能被6整除余2的数据的个数
Randomize Timer ' 随机数初始化，以时钟为随机数种子

For N = 1 To 50

X = ___________ + int(Rnd * 40) ' 随机产生50个60～100的随机数

If X Mod 6 = 2 Then

List1.AddItem Str(X)

_______________

Next N

Label1.Caption = str (count)

End Sub

同类题5

下面程序的功能是：找出10以内的奇数中能被3整除的正整数，并将它们累加起来。为了实现这一目标，请完善下列程序：
x=0
For i=1 to 10 step ____
If _______________________ then x=x+i
Next i

相关知识点