产生一个在[-10,99]中随机整数的VB表达式是
A.int (rnd*100) -10B.int(rnd*99)-10
C.int(rnd*109)-10D.int(rnd*110)-10
当前题号:1 | 题型:选择题 | 难度:0.99
下面这个程序实现了把一个十进制数转换成八进制数。

(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

当前题号:2 | 题型:填空题 | 难度:0.99
在VB中,函数lnt(7.2)的值是(  )
A.-7.2B.7C.7.2D.8
当前题号:3 | 题型:选择题 | 难度:0.99
在VB中,下列与表达式Len (“-20”) +20的值相等的是:(  )
A.Str(20)“+3”
B.Sqr(25)+20
C.Val(“-20”)+20
D.Abs(-3)+20
当前题号:4 | 题型:选择题 | 难度:0.99
在文本框Text1中输入十进制数,将其转换为二进制数后在标签Labell上输出。VB程序段如下:
Dim x As Integer,s As String,t As Integer
x=Val(Text1.Text)
Do While x>0

Loop
Labell.Caption= s
方框中的代码由以下三部分组成:
①x=x\2
②s=Str(t)+s
③t=x Mod 2
代码顺序正确的选项是( )
A.②①③B.①③②C.③②①D.①②③
当前题号:5 | 题型:选择题 | 难度:0.99
有如下VB程序段:
s=“Good Luck 2019!”
n=0:m=0:k=0
For i=1 To Len(s)

ch=Mid(s,i,1)

If ch >=”0”And ch<=”9” Then

m=m+1

Else If ch>="a” And ch<=”z” Then

n=n+1

Else

k=k+1

End If

Next i
执行该程序段后,变量k的值为( )
A.2B.3C.4D.5
当前题号:6 | 题型:选择题 | 难度:0.99
产生一个在[1,9]中随机整数的VB表达式是
A.Int(Rnd * 5) * 2+1B.Int(Rnd * 8)+1
C.Int(Rnd * 9+1)D.Int(Rnd * 9)
当前题号:7 | 题型:选择题 | 难度:0.99
[0,500]范围的十进制数转八进制的VB程序段如下:
n=Val(Textl.Text)
a(1)=0:a(2)=0:a(3)=0
For i=1 To n

j=3:a(j)=a(j)+1

Do While a(j)=8

Loop

Next i
s=a(1)&a(2)&a(3)
方框中的代码由以下三部分组成
①a(j)=a(j)+1
②a(j)=0
③j=j-1
代码顺序正确的选项是
A.①③②B.③②①C.②③①D.②①③
当前题号:8 | 题型:选择题 | 难度:0.99
实参在形式上可以是常量、(__________)、(_____________)
当前题号:9 | 题型:填空题 | 难度:0.99
显示系统当前日期和时间
当前题号:10 | 题型:填空题 | 难度:0.99