![](https://lstatic.shangxueba.com/jiandati/h5/images/m_q_title.png)
此题为判断题(对,错)。
按钮,编写如下程序段:
dimstasstring
PrivateSubcmdCut_Click()
st=txtNoteEdit.SelText
txtNoteEdit.SelText=""
EndSub
PrivateSubcmdPaste_Click()
txtNoteEdit.Text=Left(txtNoteEdit,txtNoteEdit.SelStart)+st+
Mid(txtNoteEdit,txtNoteEdit.SelStart+1)
EndSub
当单击cmdPaste命令按钮后,程序执行的效果是()
A.将文本框txtNoteEdit中的所有内容插入到光标所在的位置,实现了粘贴
B.将st变量中的内容插入到光标所在的位置,实现了粘贴
C.将文本框txtNoteEdit选中的内容存放到st变量中,实现了剪切
D.以上说法都不正确
在窗体上画一个命令按钮Command1和两个文本框,名称分别为Text 1和 Text 2 Text 2。编写如下两个事件过程: Dim str As String, strl As String Private Sub form_load() TextText = " " TextText = " " TextEnabled = False TextEnabled = False End Sub Private Sub Form. KeyPress(KeyAscii As Integer) str= str&Chr(KeyAscii) End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) str1 = strl&Chr(KeyCode) End Sub Private Sub Command1_Click() TextText =str TextText = str1 str= " " str1= " " End Sub 当在设计阶段把窗体KeyPreview属性设置为True时,程序运行过程中,在键盘上输入小写字母abc,然后单击命令按钮,则文本框Text1中显示的内容为 ______ 。
A.abc
B.不显示任何信息
C.ABC
D.出错
A.15和1
B.27和3
C.195和3
D.600和4
Dim Str1 As String,str2 As String
Private Sub form_load()
Text1.Text=""
Text2.Text=""
Text1.Enabled=False
Text2.Enabled=False
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
str1=str1 & Chr(KeyAscii)
End Sub
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
str2=str2 & Chr(KeyCode)
End Sub
Private SubCommand1_Click()
Text1.Text=str1
Text2.Text=str2
str1=""
str2=""
End Sub
当在设计阶段的窗体的KeyPreview属性设置为True时,程序运行过程中,在键盘上输入小写字母abc,然后单击命令按钮,则文本框Text1中显示的内容为
A.abc
B.不显示任何信息
C.ABC
D.出错
A、6
B、135
C、246
D、123456
E、24
PrivateSubCommand1_Click()
a=UCase(Text1.Text)+Left(Text2.Text,2)
Printa
EndSub
PrivateSubForm_Load()
Text1.Text="Ab"
Text2.Text="123456"
EndSub
程序运行后,单击命令按钮,输出结果为()
A.ab12
B.AB12
C.AB56
D.ab56
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!