下面这个程序实现了把一个十进制数转换成八进制数。(1)要是按钮命令显示文本改为“转换”可在属性窗口中__________属性的属性值改为“转换”。(2)为实现上_刷题宝

题干

下面这个程序实现了把一个十进制数转换成八进制数。

(1)要是按钮命令显示文本改为“转换”可在属性窗口中__________属性的属性值改为“转换”。
(2)为实现上述功能，请在划线处填入合适代码。

Private Sub Command1_Click( )

Dim n, m As Integer

Dim ch, s As String

s = "01234567"

____________________

ch = ""

Do While n > 0

m = n Mod 8

__________________

n = n \ 8

Loop

Text2.Text = ch

End Sub

上一题下一题 0.99难度填空题更新时间:2019-07-10 02:52:46

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

同类题1

Len(x)是一个要求字符串长度的函数。例如Len(“abcd”)返回的是4，Len(“ab cd”)返回的是5。据此判断，下列选项正确的是_______。

A．Len(“Shaanxibeilu500”)返回的是3

B．Len(“Shaanxibeilu500”)返回的是12

C．Len(“Shaanxibeilu500”)返回的是0

D．Len(“Shaanxibeilu500”)返回的是15

同类题2

（加试题）小龙编写了一个简易加法器VB程序，运行界面如图所示。在文本框Text1中输入一个数字后再输入空格表示一个加数输入完毕，连续不断输入不同的加数，待所有需要相加的数输入完毕后，单击“求和”按钮Command1后，在标签label1中显示加数的个数以及总和。(数字0和空格的ASCII码分别为48、32)
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim a As String
Dim x As Integer, s As Integer, k As Integer
a = Text1.Text
x = 1: s = 0: k = 0
For i = 1 To Len(a)
'如果输入的不是0到9的数字或者空格，则给出错误提示后结束子程序
If (Asc(Mid(a, i, 1)) < 48 Or Asc(Mid(a, i,1)) > 57) or(Asc(Mid(a,i,1))= 32) then’①________ Label1.Caption = "只能输入数字或空格"
Exit Sub
End If
If Mid(a, i, 1) = " " Then
s = s + Mid(a,x,i)’②________
x = i + 1
k = k + 1
End If
Next i
Label1.Caption = "这" + Str(k) + "个数的和为:" + Str(s)

同类题3

变量c中存储了一个字符，正确判断该字符为数字字符"0 "~ "9 "的VB表达式是( )

A．c>= "0 " And c<= "9 "

B．c>= "0 " Or c<= "9 "

C．Asc(c)>="0" And Asc(c)<=9

D．Asc(c)>="0" Or Asc(c)<=9

同类题4

将文本框Text2内输入的数据送到字符型变量n 中，则应使用的语句是（　　）

B．n = text2.text

C．n = val(text2)

D．n = val(text2.text)

同类题5

ABS（INT（-3.6））的值是_____。

相关知识点