题库 高中信息

题干

   小李编写了一个程序,用以实现下列功能:在文本框Text1中一个十进制数,在文本框Text2中输入需转换数的进制(小于等于16),点击转换按钮,在文本框Text3中输出转换后的数字;点击“退出”按钮,关闭程序。程序运行界面如下图所示:

    

(1)根据题目意思,应该在编辑界面将对象“command2”的______________属性改为“退出”。
(2)为实现上述功能,请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim x As Long
Dim y As Integer
x = Val(Text1.Text)
y = _____________
Text3.Text = _______________
End Sub
Function trans(n As Long, b As Integer) As String
Dim hex As String
hex = "0123456789ABCDEF"
Do  while n<>0
r = n Mod b
n = n \ b
trans = _______________ + trans
Loop
End Function
Private Sub Command2_Click()
End
End Sub
上一题 下一题 0.99难度 填空题 更新时间:2019-05-05 07:27:02

答案(点此获取答案解析)

同类题2

获取字符串中指定范围内的元素,可以通过字符编号来实现,字符编号有正向编号和反向编号。如字符串"ABCDEF",字符A的正向编号为1、反向编号为-6,如下表:

"2:4"表示获取正编号"2"到"4”的字符串,即"BCD",-5:-3、2:3、-5:4这三种编号范围也表示的是字符串"BCD"。

小王根据上述算法设计如下程序,在文本框Textl输入字符串,在文本框Text2和Text3中输入字符编号,单击"获取"按钮,在标签Labell中显示指定范围的字符串。当Text2中的编号位置在Text3中的编号位置之前,则输出正向字符串,反之输出逆向字符串。程序运行界面如图所示。


(1)用户单击命令按钮Command1时调用的事件处理过程为__________。(单选,填字母:
A.Command1/
B.Caption/C.Click/D.Commandl_Click)。
(2)实现上述功能的VB程序如下,请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, ans As String
Dim a As Integer,b As Integer, n As Integer
s=Textl.Text:n= Len(s): ans=""
a=Val(Text2.Text): b = Val(Text3.Text)
If Abs(a)>n Or Abs(b)>nOra *b=0 Then
ans="输入范围有误"

Else

If a<0 Thena=a+n+ =1
Ifb<OThenb= ①_______
Ifa<=b Then
ans= ②_______

Else

Fori=a To b Step-1
ans=ans+Mid(s,i,1)
Next i

End If

End If

Label1.Caption=ans
End Sub
(3)若文本框Textl中输入的内容为"123456789",文本框Text2和Text3中输入的内容分别为-3和5,单击"获取”按钮,标签框Labell中显示的内容是____________。