编写VB程序，实现如下功能：在文本框Text1中输入十进制整数，文本框Text2中输入待转换进制（范围2~16），单击“转换”按钮Command1，在列表框List1中输出该整数对应的进制结果，运行效果如图1所示。图1 图2

题型：综合题题类：常考题难易度：困难

浙江省台州市书生中学2017-2018学年高二下学期信息技术起始考试卷

编写VB程序，实现如下功能：在文本框Text1中输入十进制整数，文本框Text2中输入待转换进制（范围2~16），单击“转换”按钮Command1，在列表框List1中输出该整数对应的进制结果，运行效果如图1所示。


图1	图2

（1）、设计时，属性窗口对象列表如图2所示，则该程序共有个对象。

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

Private Sub Command1_Click()

Const code = "0123456789ABCDEF"

Dim s1 As String, s As String '变量s存储转换后的结果

Dim x As Long, R As Integer

If R >= 2 And R <= 16 Then

x = Val(Text1.Text)

s = ""

Do While x > 0

y = x Mod R

x =

s1 = Mid(code, y + 1, 1) '将余数转换为对应的字符

s =

Loop

List1.AddItem "(" & Text1.Text & ")10" & " →(" & s & ")" & R

End If

End Sub

（3）、在Text1中输入180，在Text2中输入8，list1中输出。

举一反三

下列关于VB控件的叙述中，正确的是：（）

某种编码以4位二进制码为一组，每组前两位表示方向，后两位表示距离。编写一个程序，将编码翻译成方向和距离，距离值为每组编码后两位二进制码转换为十进制数的值。具体功能如下：在文本框Text1中输入连续多组编码，单击“翻译”按钮Command1，结果显示在列表框List1中。程序运行界面如图所示。

在VB中，某工程的代码窗口如图所示:

程序运行时,能触发“Label2.Caption=″*″”代码执行的事件是（）

一个VB工程的部分设计界面如下图所示：

下列选项正确的是（）

下列程序所计算的数学式子是（）

PRIVATE SUB FORM__CLICK( ）

S=0

FOR A= 1 TO 5

S=S+（10^A-1）/3

NEXT A

PRINT S

END SUB

请在横线处填写正确的代码

求解如下分段函数的值。

y＝

x=float（input（"请输入x的值："））

if {#blank#}1{#/blank#}:

y＝－2*x－4

{#blank#}2{#/blank#}x＜10：

y＝（x＋2）**0.5

else:

y＝2**（x-1）

print({#blank#}3{#/blank#})

相关试卷

公司介绍

服务介绍

帮助中心