相关试卷
-
1、奇偶校验是一种校验数据传输正确性的方法。其中奇校验方法：统计二进制数据的数位中“1”的个数，若个数为奇数，则校验位值为0，否则校验位值为1。小李编写了一个计算奇校验位值得VB程序，功能如下：在文本框Text1中输入1～255十进制待校验数，单击“计算”按钮Command1后，在文本框Text2中显示该数对应的二进制值，并在标签Label3中显示该数的校验位值。程序运行界面如图所示。
(1)、在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的属性。(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。Private Sub Command1_Click()
Dim a As Integer, s As String
Dim n As Integer, t As Integer, v As Integer
n=Val(Text1.Text)
t=0
s=""
Do While n>0
a=n Mod 2
n=n\2
t=
s=Str(a)+s
Loop
v=t Mod 2
Text2.Text=s
Label3.Caption="校验位值："+
End Sub
(3)、运行该程序，在文本框Text1中输入22，单击“计算”按钮，则显示的校验位值是。 -
2、小林为了将十进制数转化为k进制数（k介于2~16之间）设计如下界面程序：在文本框Text1中输入一个十进制数，在文本框Text2中输入整数k(范围在2到16之间)，单击“运行”按钮Command1，程序将十进制转化为k进制的，并在标签Label1中输出结果。请回答下列问题：
(1)、在设计程序界面时，要更改窗体标题处显示的内容，应修改窗体的属性。(2)、实现上述功能的 VB 程序如下。请在划线处填入合适代码。Private Sub Command1_Click()
Dim d As Integer, k As Integer, r As Integer, s As String, c As String
d = Val(Text1.Text) : k = Val(Text2.Text)
s = ""
Do While d>0
r=d Mod k
If r>=10 Then
c=Mid("ABCDEF",r-9,1)
Else
c=Str(r)
End If
s=c+s
Loop
="结果为"+s
End Sub
(3)、运行该程序，在文本框 Text1 中输入“38”，文本框 Text2 中输入“2”,单击“运行”按钮，则 Label1 显示的内容为是。 -
3、用VB编写正整数十进制转换为十六进制的程序，运行界面如图所示。程序功能如下：在文本框Text1中输入待转换的十进制值，单击“十进制转换十六进制”按钮Command1，在文本框Text2中输出转换结果。
(1)、要使命令按钮Command1显示的文本改为“十进制转换十六进制”，可在其属性窗口中将属性的属性值修改为“十进制转换十六进制”。(2)、若在文本框Text1中输入79，则文本框Text2中输出的值是。(3)、请在程序的划线处填写合适的代码。Private Sub Command1_Click()
Dim a As String,s As String
Dim r As Integer,x As Integer
x=Val(Text1.Text)
s=""
Do While x>0
x=x\16
If r>9 Then
a=Chr(r+55)
Else
a=Str(r)
End If
s=a+s
Text2.Text=s
End Sub
-
4、小明编写了一个VB程序，功能如下：输入一个不超过30000的正整数，把它分解成质因子相乘的形式，如36=1*2*2*3*3，17=1*17。程序运行时，在文本框Text1中输入一个整数，单击“整数分解”按钮Command1后，在标签Label3中显示该整数的分解结果。程序行界面如图所示。
(1)、若输入待分解的整数为 45，则分解结果为：。(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim s As String
s="1"
i=2
Do While i<=Val(Text1.Text)
If Then
n=n\i
s=s+"*"+Str(i)
Else
End If
Loop
Label3.Caption=Text1.Text+"="+s
End Sub
-
5、编写VB程序，界面设计如图所示，使其具有下列功能：在文本框Text1中输入一个小于20的正整数n，单击“计算”按钮Command1，计算斐波那契数列中第n项的值，并在标签Label2中输出结果；若输入错误，则在标签Label2中显示相应的提示信息。(斐波那契数列是指这样的数列：1,1,2,3,5,8,13…。即：第1项和第2项的值均为1，从第3项开始，每一项的值是它前面两项之和)
(1)、代码“Private Sub Command1_Click()”中的Command1 是(单选，填字母：A .对象名/B .属性名/C .属性值/D .事件名)。(2)、为实现上述功能，请在划线处填入合适的代码。Private Sub Command1_Click()
Dim n As Long,k As Integer
Dim f1 As Long,f2 As Long,f As Long
If n>=20 Or n<=0 Then
Label2.Caption=”输入的数据有误”
Else
If n<=2 Then ‘第1，2个元素的值都为1
f=1
Else
f1=1
f2=1
For k=3 To n
f=f1+f2
f1=f2
f2=f
Next k
End If
Label2.Caption = ”斐波那契数列第” + Str(n) + ”项的值为” +
End If
End Sub
(3)、若在文本框Text1.Text输入21，则标签Label2显示的内容为。 -
6、下列程序执行后变量c的值（ ）
s="ABC123":i=1
Do While i<=6
ch=Mid(s,i,1)
If ch>="0" And ch<="9" Then c=c+1
i=i+1
Loop
A、1 B、2 C、3 D、4 -
7、某VB程序段如下：
i=1:j=10:temp=a(5)
Do While a(j)>temp
j=j-1
Loop
Do While a(i)<temp
i=i+1
Loop
temp=a(i)：a(i)=a(j)：a(j)=temp
数组元素a⑴到a(10)的值依次为“36 91 36 17 93 99 2 9 97 97”，执行该程序段后，a(5)的值为（ ）
A、93 B、9 C、36 D、97 -
8、有如下VB程序段：
Max=-10000
For i=1 To 10
s=0
For j=i To 10
s=s+a(j)
If s>max Then max=s
Next j
Next i
已知数组a(1)到a(10)的原始数据为6，-6，8，-7，7，2，-2，-1，-2，4。程序执行后，变量max的值为（ ）
A、9 B、10 C、27 D、4 -
9、下列VB程序运行时，在文本框Text1中输入"Basic"，单击命令按钮Command1后，文本框Text2中显示的是 （ ）
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim s1 As String, s2 As String, c As String
s1=Text1.Text
s2=” ”
n=Len(s1)
For i=1 To n
c=Mid(s1,i,1)
s2=c+s2
Next i
Text2.Text=s2
End Sub
A、cisaB B、csBai C、 Basic D、aicsB -
10、如下VB程序段：
x=Val(Text1.Text)
If x>3 Then
If x<=6 Then y=2*x
Else y=3*x
Else
y=4*x
End If
Print y
若程序运行时在文本框Text1中输入6，则y的值是 （ ）
A、24 B、18 C、12 D、6 -
11、有如下VB程序段：
x=-4.2
y=Abs(Int(x))
If x＞0 And x＜5 Then
y=y+1
Else
y=y-1
End If
该程序段运行后，y的值为（ ）
A、3 B、4 C、5 D、6 -
12、某VB程序的一个事件过程代码如下：
Private Sub Command1_Click()
Dim u As Single, x As Single, y As Single, z As Single
u=Val(Text1.Text)
x=(u+10)/(u*u+8)
y=(u-1)/(x+u)
z=Sqr(x-y)
Text2.Text=Str(z)
End Sub
程序运行时，在文本框Text1中输入-1，单击命令按钮Command1，弹出如图所示的错误提示信息。产生此错误的语句是（ ）
A、u=Val(Text1.Text) B、x=(u+10)/(u * u+8) C、y=(u-1)/(x+u) D、z=Sqr(x-y) -
13、一个VB工程的部分设计界面如下图所示：
下列选项正确的是（ ）
A、窗体的Caption属性值是“对象” B、窗体文件名是“Form1.frm” C、当前选中对象的名称是“Shape” D、工程的名称是“我的工程” -
14、在VB中，已知整数n≥100，下列与语句b = n \ 10 Mod 10功能相同的是（ ）A、b = (n Mod 100) \ 10 B、b = n Mod 10 \ 10 C、b = (n Mod 10) \ 100 D、b = n \ 100 Mod 10
-
15、在VB中，如果a=1, b=0, c=-1,那么下列表达式值为假的是( )A、(a>b) And (b>c) B、(a>-c) And (b>a) C、(a<b) Or (b>c) D、(a>c) Or (b=a)
-
16、在Visual Basic中，下列表达式的值等于2的是（ ）A、Int(2.1) B、Abs(-2.1) C、Sqr(2.1) D、Len(”2.1”)
-
17、下列VB表达式的值等于2016的是（ ）A、2016 Mod 2^20/10 B、Len(”2015”)+1 C、Str(2008)+”8” D、Mid(”20160501”,1,4)
-
18、某算法的部分流程图如图所示，执行这部分流程后，下列说法正确的是（ ）
A、变量n，x的值分别是6,1 B、变量n，x的值分别是1,6 C、步骤x←x/2的执行次数是4 D、步骤n←n+1的执行次数是6 -
19、某算法部分流程图如图所示。执行这部分流程，依次输入7、-5、12、0，则输出值是（ ）
A、12 B、17 C、-20 D、5 -
20、某算法的部分流程图如图所示。执行这部分流程，分别输入35、50、60，则输出值依次为（ ）
A、10，3 B、10, 4 C、7, 10, 4 D、10, 12，3