填空题

在窗体上画两个文本框，然后编写程序。程序运行后，如果在第一个文本框中输入A、B、C、D或a、b、c、d，则在第二个文本框中显示EFDH。请完善下列程序。
Private Sub Form_Load()
　　Show
　　Text1.Text = ""
　　Text2.Text = ""
　　Text1.SetFocus
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer， Shift As Integer)
　　Text2.Text = ______
End Sub

【参考答案】

Text2.Text+Chr (KeyCode+4)

<上一题目录下一题>

热门试题

填空题

要想在文本框中显示垂直滚动条，必须把ScrollBars属性设置为2，同时还应把______属性设置为True。

填空题

Jackson结构化程序设计方法是英国的M·Jackson提出的，它是一种面向______的设计方法。

填空题

运行下列程序： Dim t As Integer Private Sub Form_Click() t = 2 x = Val(InputBox( 输入一个整数5 )) Print fun1(x); t End Sub Private Function fun1(y) If y ＞ 0 Then fun1 = 1: t = 10 ElseIf y = 0 Then fun1 = 0: t = 20 Else fun1 = -1: t = 30 End If End Function 从键盘为变量x输入数据5，输出的结果是______。

填空题

对象 @对象

填空题

数据库的逻辑模型设计阶段的主要任务是将______转换成关系模型。

填空题

具有n个结点的完全二叉树的深度为______。

填空题

若长度为n的线性表采用顺序存储结构，在等概率假设的情况下，删除一个的数据元素，需要先依次移动______个数据元素。

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Sum = 0 For x = 1 To 5 Call sub1(x, s) Sum = Sum + s Next x Print Sum End Sub Private Sub sub1(y, w) w = 1 For i = 1 To y w = w * i Next i End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是________。

A．5
B．120
C．153
D．160

单项选择题

在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序： Private Sub Command1_Click( ) Dim x As String, y As String, c As String, d As String x = Text1.Text : y = Text2.Text c = LCase(x): d = UCase(y) Print c; d End Sub 程序运行后，在文本框Text1、Text2中分别输入AbC和efG，结果是________。

A．abcEFG
B．abcefg
C．ABCefg
D．ABCEFG

单项选择题

在窗体上画一个文本框，然后编写如下程序： Option Base 1 Private Sub Form_Click( ) Dim Arr(10)As Integer For i = 6 To 10 Arr(i)= i - 3 Next i Text1.Text = Str(Arr(6)+ Arr(Arr(6)+ Arr(10))) End Sub 程序运行后，单击窗体，在文本框中显示的内容是________。

A．1
B．3
C．6
D．10

相关试题