填空题

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

【参考答案】

[14]For Input [15]Not EoF(1)
<上一题 目录 下一题>
热门 试题

填空题
在窗体上画一个名为Command1的命令按钮。下列程序的功能是：从输入对话框输入一个正整数n。用随机函数产生n个1～100范围的随机数，然后求出去掉一个最大数和最小数的平均数。根据题意，请完善下列程序：Private Sub Command1_Click()Dim ave As Single, max As Integer, i As Integer, n As IntegerDim min As Integer, Sum As Integer, s As StringDim t As Integers=InputBox( 输入一个正整数: )n=Val(s)If n＞0 Thenmax=n: min=n: Sum=0For j=1 To nt= 【9】 Print t;Sum=Sum+tIf t＜min Thenmin=tElself max＜t Thenmax=tEnd IfNext j【10】 ave=Sum nMsgBox 平均值= +Str(ave)，， 去掉最大数和最小数后 End IfEnd Sub
填空题
在窗体上画一个名称为Combol的组合框，画两个名称分别为Label1和Label2及Caption，属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”，如图16-3所示；如果存在，则在Label2中给出提示“输入项已在组合框中”。请在 【11】 、 【12】 和 【13】 处将程序补充完整。Private Sub Comhel 【11】 (KeyAscii As Integer)If KeyAseii=13 ThenFor i=0 To Combol. ListCount-1If Combol. Text= 【12】 ThenLabel2. Caption= 输入项已在组合框中 Exit SubEnd IfNext iLabel2. Caption= 已成功添加输入项 Combol. 【13】 Combol. TextEnd IfEnd Sub
相关试题