- 二一组卷

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

浙教版高一信息技术专题五：VB程序设计

用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

举一反三

某算法的部分流程图如图所示，执行这部分流程后，输出s，n的值分别是（）

如程序中定义如下数组：Dim a(100) As Integer，则下列关于数组元素引用错误的是（）

某Visual Basic程序的一个事件过程如下：

Private Sub Form_Load()

Command1.Caption=“计算”

End Sub

在程序运行时，能触发该事件的是（）

编写VB程序，实现如下功能：在文本框Text1和Text2中分别输入一个整数，单击“转换”命令按钮，在列表框List1中显示结果，运行结果如图a所示。结果包含两列数据，第1列为两数之间的厘米值g(间隔1厘米、升序)，第2列为对应的码值m。

鞋子尺码换算：常用的两种鞋码一种是欧制的码m，而我国采用的标准为厘米数g，鞋子尺码的换算公式：欧制m=中国制g*2-10。例如25是我国采用的厘米数，换算成欧制的码为25*2-10=40(码)。

编写VB趣味程序“计算厚道指数”，实现如下功能：在文本框Text1中输入姓名，单击“试一试”按钮Command1，在列表框List1依次求解并显示姓名中的每一个字符的ASCII码，并按程序中给定方式进行运算，得出厚道指数。运行界面如图所示，程序代码如下。

小刘设计了一个排序算法，该排序算法会将数组a中奇数位的元素从小到大排列，偶数位的元素从大到小排列，程序界面如图，算法的VB程序段如下：

Private Sub Command2_Click()

Dim i As Integer, j As Integer, tmp As Integer

Dim s1 As String, t As Integer, s2 As String

t=1

For i=1 To n-2

For j= To n Step 2 ‘改错

If a(i)*t>a(j)*t Then

tmp =a(i): a(i)= a(j): a(j)=tmp

End if

Next j

‘填空①

Next i

For i =1 To n

If Then ‘填空②

s1 =s1 Str(a(i))

Else

s2=s2+Str(a(i))

End If

Text2. Text=“奇数位：”+s1

Text3. Text=“偶数位：”+s2

End Sub

回答以下问题：

相关试卷

公司介绍

服务介绍

帮助中心