题目内容

把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程： Prirate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(Keycode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 程序运行后，如果直接按键盘上的“A”键(即不按住Shift键)，则在窗体上输出的字符分别是【】和【】。

查看答案

搜索结果不匹配？点我反馈

更多问题

以下程序的功能是：求x的y次方。根据题意，请完善下列程序。 Private Function funl(x As Double, y As Integer)As Double Dim i As Integer Dim z As Double z=【】 For i=1 To y z=z*x Next i 【】 End Function Private Sub Command1_Click() Dim m As Double Dim n As Integer Dim t As Double m=InputBox("输入x数:") n=InputBox("输入次方数:") t=funl(m, n) Print Str(m)+"^"+Str(n)+"=";【】 End Sub

窗体中有两个命令按钮：“显示”(控件名为CmdDisplay)和“测试”(控件名为CmdTest)。单击“测试”按钮时，执行如下事件过程。此事件过程的功能是：当在窗体中出现消息框并选中其中的“确定”按钮时，隐藏“显示”按钮。否则退出。根据题意，请完善下列程序。 Private Sub CmdTest_Click() Answer=【】 ("隐藏按钮") IF Answer=vbOK then CmdDisplay. visible=【】 Else End End IF End Sub

在窗体上画一个名称为Combol的组合框，画两个名称分别为Label1和Label2及Caption，属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”，如图16-3所示；如果存在，则在Label2中给出提示“输入项已在组合框中”。请在【】、【】和【】处将程序补充完整。 Private Sub Comhel【】(KeyAscii As Integer) If KeyAseii=13 Then For i=0 To Combol. ListCount-1 If Combol. Text=【】Then LabelCaption="输入项已在组合框中" Exit Sub End If Next i LabelCaption="已成功添加输入项" Combol.【】Combol. Text End If End Sub

以下程序的功能是：把当前目录下的顺序文件smText1. txt的内容读入内存，并在文本框Text1中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1. Text="" Open". \mText1. txt"【】As 1 Do While【】 Input 1, inData Text1. Text=Text1. Text & inData Loop Close 1 End Sub