将数学表达式写成VB表达式,正确的是( )
A.log(x)/(a+b)B.log(x)/a+b
C.ln(x)/(a+b)D.ln(x)/a+b
当前题号:1 | 题型:选择题 | 难度:0.99
下面程序段是利用For语句给数组a赋值( )
For i= 1 To 5
a(i)=3*i+i^2
Next i
该程序段运行后数组元素a(5)的值为( )
A.40B.15C.28D.18
当前题号:2 | 题型:选择题 | 难度:0.99
黄龙超市举行开业酬宾,购物总金额满500元者,超过部分可优惠10%,满1000者,超过部分可优惠15%,满2000者,超过部分可优惠20%。用算法描述这次酬宾活动的话,最合适的算法结构是(  )
A.顺序模式B.循环模式C.树型模式D.选择模式
当前题号:3 | 题型:选择题 | 难度:0.99
下列VB程序段执行后变量n、s的值为( )
n=1: s=0
Do while s<20
s=s+n
n=n+2
Loop
A.9  16B.11  20C.11  25D.9  24
当前题号:4 | 题型:选择题 | 难度:0.99
下列变量定义正确的是( )
A.dim 1a as stringB.Dim a (1 to 4,2 to 9)as integer
C.dim boolean as stringD.Dim a as string integer
当前题号:5 | 题型:选择题 | 难度:0.99
(加试题)某VB程序使用了递归函数,代码如下:
Private Sub Command1_Click()
Text1.Text = f(3)
End Sub
Function f(x As Integer) As String
If x = 1 Then  f = 1  Else  f = f(x - 1) + 2
End Function
运行程序并点击按钮Command1后,文本框Text1中显示的内容是( )
A.1B.3C.5D.7
当前题号:6 | 题型:选择题 | 难度:0.99
(加试题)某一过程算法的VB程序段如下:
Private Sub Command1_Click()
Dim n As Integer
n = Val(text1.Text)
Call prsj(n) '调用自定义过程
End Sub
Sub prsj(c As Integer)  '自定义过程,可以用Call语句来调用该过程
Dim i As Integer, j As Integer, k As String
List1.Clear
For i = 1 To c
k = ""
For j = 1 To i
k = k + "*"
Next j
List1.AddItem k
Next i
End Sub
在文本框Text1输入3,执行该程序段后,在列表框List1中显示的是
A.B.C.D.
当前题号:7 | 题型:选择题 | 难度:0.99
(加试题)某一条形码是由13位数字组成的编码,其末位是校验码。条形码校验的方法如下:
①除校验码之外,求其余12位编码中的奇数、偶数的数字之和;
②将偶数的数字之和乘以3,加上奇数的数字之和;
③取第②步得到结果的个位数字,用10减去该数字,将得到的结果存入变量m;
④若m的值为10,则将m的值修改为0,否则不变;
⑤若m和校验码相等则输出“校验码正确!”,否则输出“校验码错误!”。
现编写一个VB程序,实现如下功能:在文本框Text1中产生条形码数字序列,单击“校验”按钮Command1,在标签Label1中输出对应的校验信息,界面如图所示。

实现上述功能的VB程序如下,但加框处代码有错,请改正。
Private Sub Command1_Click()
Dim s As String, x As Integer
Dim n As Integer , js As Integer, os As Integer, m As Integer
Js=0: Os=0    
s = Text1.Text
 n = Log(s)     改正:_______________①
If n <> 13 Then
Label1.Caption = "条形码位数错误!"[:学#科#网Z#X#X#K]
Else
For i = 1 To 12
x = Val(Mid(s, i + 1, 1))     改正:______________② 
If x Mod 2 <> 0 Then
js = js + x
Else
os = os + x
End If
Next i
m = os * 3 + js
m = 10 - m Mod 10
If m = 10  Then m = 0
If m=Val(Mid(s,n,1)) Then
Label1.Caption = "校验码正确!"
Else
Label1.Caption = "校验码错误!"
End If
End If
End Sub
当前题号:8 | 题型:填空题 | 难度:0.99
在计算机系统中,数值一律用补码来表示和存储。求负整数的补码是将该数对应的正数转换为二进制数(不足8位时高位补0),最高位作为符号位为1,其余每位二进制数取反(1变成0,0变成1),末位加1。
小明编写了一个VB程序,功能如下:在文本框Text1中输入一个负整数,单击“转换”按钮Command1后,在文本框Text2中显示该数对应的补码。程序运行界面如图所示。

(1)在设计程序界面时,要使按钮Command1显示为“转换”,应修改该按钮的_______属性。
(2)实现上述功能的VB程序如下,请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a(8) As Integer, x As Integer, b As String
x = Val(Text1.Text)
x = Abs(x)
For i = 1 To 7 '求原码
a(i) = x Mod 2
x = x \ 2
Next i
For i = 1 To 7 '求反码
a(i) =___________
Next i
b = "1" '求补码
a(1) = a(1) + 1
i = 1
Do While a(i) = 2 And i < 7
a(i) = 0
a(i + 1) = a(i + 1) + 1
i = i + 1
Loop
For i = 7 To 1 Step -1
b = b + Trim(Str(a(i)))   'trim()函数去除字符前后空格
Next i
Text2.Text = __________
End Sub
(3)运行该程序,在文本框Text1中输入-10,单击“转换”按钮,则显示的补码是__。
当前题号:9 | 题型:填空题 | 难度:0.99
某算法的部分流程图如图所示,执行这部分流程后,变量s的值是
A.2B.10C.58D.442
当前题号:10 | 题型:选择题 | 难度:0.99