题目内容

在窗体上画一个名称为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

氧传感器的作用是：()。

A. 保证怠速平稳
B. 保证理想状态下的空燃比
C. 保证发动机在经济车速下工作
D. 避免发动机超速

在窗体上画一个名为Command1的命令按钮。下列程序的功能是：从输入对话框输入一个正整数n。用随机函数产生n个1～100范围的随机数，然后求出去掉一个最大数和最小数的平均数。根据题意，请完善下列程序： Private Sub Command1_Click() Dim ave As Single, max As Integer, i As Integer, n As Integer Dim min As Integer, Sum As Integer, s As String Dim t As Integer s=InputBox("输入一个正整数:") n=Val(s) If n＞0 Then max=n: min=n: Sum=0 For j=1 To n t=【】 Print t; Sum=Sum+t If t＜min Then min=t Elself max＜t Then max=t End If Next j 【】 ave=Sum/n MsgBox"平均值="+Str(ave)，，"去掉最大数和最小数后" End If End Sub

喷油器的升程一殷为()以保证针阀反应快捷，在数毫秒之内开启和关闭。

A. O.1—O.2mm
B. O.O5—O.O6MM
C. O.O8—O.O9mm
D. O.Ol一O.O2mm