- 二一组卷

题型：综合题题类：常考题难易度：普通

浙江省高中信息技术——VB基础知识

小明为了将十进制数转化为k进制数（k值范围在2到16之间）设计如下程序：在文本框Text1中输入一个十进制数，在文本框Text2中输入整数k，单击“运行”按钮 Command1，程序将十进制数转化为k进制数，并在标签Label1中输出结果。请回答下列问题：

（1）、程序窗体中“运行”所用的控件是（A .

/B .

/C .

/D .

）

（2）、实现上述功能的VB程序如下，请在划线处填入合适的代码。

Private Sub Command1 _Click( )

Dim As Integer, k As Integer, r As Integer

Dim 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”, ① ,1)

Else

c= str(r)

End If

s= ②

d =d \k

Loop

Label1. Caption= “结果为: “+s

End Sub

① ②

（3）、运行该程序，在文本框Text1中输入“28”，文本框Text2中输入“16”，单击“运行”按钮，则 Label1显示的内容是。

举一反三

随机产生一个两位正整数的VB表达式是（）

有如下Visual Basic程序段：

a = "360"

b = Val(a)

c = Len(a)

If b > c Then

Label1.Caption = "取数值"

Else

Label1.Caption = "取字符"

End If

该程序段运行后，在标签Label1上显示的是{#blank#}1{#/blank#}。

在计算机中负数反码的计算如下：给出十进制数x(-127≤x≤0)，将x的绝对值转化为七位二进制数，然后逐位取反，最左边增加符号位1得到八位二进制数反码。例如十进制数-7，将7转换为七位二进制数为0000111，逐位取反变成1111000，最左边增加符号位1得到八位二进制数反码为11111000。小杜编写了一个反码转化程序，功能如下：在文本框Text1中输入十进制负数x(-127≤x≤0)，单击按钮Command1后，在标签Labe1上显示其反码。程序运行界面如下图所示。

数组a中有n个正整数，对该数组进行排序，生成左右交替上升数据序列。实现该功能的VB程序段如下：

For i=1To n＼2

k=i

If a(j) <a(k) Then k=j

Next j

If i<>k Then

t=a(i)：a(i)=a(k)：a(k)=t

End If

If Then

t=a(j)：a(j)=a(j+1)：a(j+1)=t

End If

Next j

Next i

上述程序中方框处可选语句或表达式有：

①For j=i+1 To n-i+ 1 ②For j=i+1 To n-i

③a(j)<a(j+1) ④a(j)>a(j+1)

则(1)、(2)、(3)处语句依次是（）

若变量a = 5，b = 4，c = 3，d = 2，则表达式not 3>2*b and (b>c+1 or c<>3)的值是（）。

在Python中，将代数式3.14r²写成Python表达式，正确的是（）。

相关试卷

公司介绍

服务介绍

帮助中心