下列VB程序运行时，单击命令按钮Command1后，若在文本框中输入10，则标签Label1显示的内容是______PrivateSubCommand1_Cli_刷题宝

题干

下列VB程序运行时，单击命令按钮Command1后，若在文本框中输入10，则标签Label1显示的内容是______
Private Sub Command1_Click()
Dim sjzs As Integer
Dim rjzs As String
sjzs = Val(Text1.Text)
rjzs = ""
Do While Int(sjzs / 2) > 0
rjzs =" Str(sjzs" Mod 2) + rjzs
sjzs =" Int(sjzs" / 2)
Loop
Label1.Caption = rjzs
End Sub

上一题下一题 0.99难度填空题更新时间:2015-08-21 04:12:05

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

同类题1

为使两段程序能实现相同的功能，左框内划线处的内容为（）

A．b =" x" \ 10 Mod 10

B．b =" (x" - a * 100) / 10

C．b =" (x" - a * 100) / 10

D．b =" Int((x" - a * 100 - c) / 10)

同类题2

下列关于添加"控件"的方法正确的是（）

A．单击控件图标，将指针移到窗体上，双击鼠标

B．双击工具箱中的控件，即在窗体上出现该控件

C．单击工具箱中的控件，将指针移到窗体上，再单击

D．用鼠标左键拖动工具箱中的某控件到窗体的适当位置

同类题3

VB是一种程序设计语言。

同类题4

计算下列表达式的值
（1）156\10 mod 7的值是_________________
（2）12+5^2 MOD 23*3\72/2^3+1值为_________________
（3）如果变量a=2,b=3,c=4,d=5，表达式NOT a>b AND NOT d<>c的值是_________________
（4）如果变量 a=7、b=6、c=4、d=5，则表达式 a<d OR b>c AND c<>d 的值为_________________

同类题5

有一个报数游戏， n个人排成一圈，游戏开始时规定一个报数号m，然后从其中一个人开始按顺时针报数1，2，3……n，当某人报到的数为m的倍数时，即被淘汰，其他人继续游戏，直到最后。现用VB设计了一个程序，程序界面如下图所示。在文本框Text1中输入参加游戏的人数n，在文本框Text2中输入报数号m，单击“报数”按钮，即在列表框List1中显示每次被淘汰的人的顺序号。

实现上述功能的VB代码如下，但加框处有错，请改正。
Private Sub Command1_Click()
Dim n As Integer, m As Integer
Dim a(1 To 50) As Integer
n = Val(Text1．Text)
m = Val(Text2．Text)
For i =" 1" To n

'（1）
Next i
s =" 0:j" = 0
Do While s < n
t = 0
Do While t < m

'（2）
t =" t" + a(j)
Loop
a(j) = 0
s =" s" + 1
List1．AddItem "第" + Str(s) + "次：" + Str(j)
Loop
End Sub

相关知识点