【单选题】在窗体上有一个文本框Text1,Text属性值为空,然后编写如下事件过程:Private Sub Text1_KeyPress(Key Ascii As Integer)Dim str As String, n As Integer str=UCase(Chr(Key Ascii)) n=Len(str) Text1.Text=String(n,str) End Sub 程序运行后,若在文本框中输...
【单选题】P46.在窗体中有一个文本框Text1,编写事件代码如下,打开窗体运行后,在输入框中输入整数12,文本框 Text1中输出的结果是
【单选题】( 32 )在窗体中有一个文本框 text1, 编写事件代码如下: Private sub form_click() X=val(inputbox( “ 输入 x 的值 ” )) Y=1 If x$amp Text1.value=y End sub 打开窗体运行后。在输入框中输入整数 12 ,文本框 text1 中输出的结果是
【单选题】会计档案的定期保管期限中,不包括( )档
【单选题】在窗体中有一个命令按钮Command1和一个文本框Text1,编写事件代码如下: Private Sub Command1_Click(. For I =1 To 4 x = 3 For j = 1 To 3 For k = 1 To 2 x = x + 3 Next k Next j Next I Text1.value = Str(x. End Sub 打开窗体运行后,单击命令按钮,文本框Te...
【单选题】在窗体上有一个文本框Text1,Text属性值为空,然后编写下列事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String,n As Integer str=UCase(Chr(KeyAscii)) n=Len(str)。 Text1.Text=String(n,str) End Sub 程序运行后,若在文本框中输...
【单选题】在窗体上有一个文本框Text1,Text属性值为空,然后编写下列事件过程: Private Sub Text1 KeyPress(KeyAscii As Integer) Dim str As String,n As Integer str=UCase(Chr(KeyAscii)) n=Len(str) Text1.Text=String(n,str) End Sub 程序运行后,若在文本框中输入...