题目内容

设窗体上有一个名称为Combo1的组合框，并有以下程序： Private Sub ComboLKeyPress(KeyAscii As Integer) If (7) =13 Then 回车符的ASCⅡ码是13 For k=0 To (8) -1 If Combo1.Text=Combo1.List(k)Then Combo1.Text=" " Exit For End If Next k If Combo1.Text＜＞" "Then Combo1.AddItem (9) End If End If End Sub 程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中的文本添加到列表的尾部。请填空。

查看答案

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

更多问题

窗体上已有名称分别为Drive1、Dir1、File1的驱动器列表框、目录列表框和文件列表框，且有一个名称为Text1的文本框。以下程序的功能是：将指定位置中扩展名为".txt"的文件显示在File1中，如果双击File1中的某个文件，则在Text1中显示该文件的内容。请填空。 Private Sub Form_Load() File1.Pattern= (13) End Sub Private Sub Drive1_Change() Dir1.Path=Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path=Dir1.Path End Sub Private Sub File1_DblClick() Dim S As String*1 If Right(File1.Path,1)="\"Then f_name=File1.Path+Filel.FileName Else f_name=Filel.Path+"\"+Filel.FileName End If Open f_name (14) As#1 Text1.Text=" " Do While (15) s=Input(1，#1) Text1, Text=Text1.Text+S Loop Close#1 End Sub

设有如下的记录类型： Dim stul as student Type student number As String name As String age As Integer End Type 则引用该记录成员number的代码是______。

假定建立了一个工程，该工程包括两个窗体，其名称(Name属性)分别为Form1和Form2，启动窗体为Form1。在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体隐藏，显示窗体Form2，请将下面的程序补充完整。 Private Sub Command1_Click() Form1. (11) Form2. (12) End Sub

夏季大量水果上市，为防止肠道病毒传播，最佳的消毒剂是

A. 高锰酸钾
B. 过氧乙酸
C. 碘酒
D. 石炭酸
E. 酒精