问答题

完成下列问题:
考生文件夹下有一个工程文件sjt4.vbp,其中的窗体上已有如图4所示的控件。程序功能如下:
[*]
①单击“读数据”按钮,则将考生文件夹下in4.dat文件内容(该文件中仅含有字母和空格)显示在Text1文本框中。
②在Text1中选中部分文本,并单击“统计”按钮,则以不区分大小写字母的方式,自动统计选中文本中同时出现“o”、“n”两个字母单词的个数(如:million、company都属于满足条件的单词),并将统计结果显示在Text2文本框内。
在横线处填写正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后将程序按原文件名存盘。
[题目提供的源程序]
Dim s As String
Private Sub Command1_Click()
Open App.Patb & "\in4.dat" For Input As #1
s=Input(LOF(1),#1)
Close #1
Text1.Text=s
End Sub
Private Sub Command2_Click()
Dim m As Integer
If Len(s)= (1) Then
MsgBox "请先使用"读数据"功能!"
Else
If Text1. (2) =0 Then
MsgBox "请先选中文本!"
Else
t=""
For i=1 To Text1.SelLength
c=Mid(Text1.SelText,i,1)
If c<>"" Then
t=t+c
Else
x= (3)
If InStr(x, "o") <> 0 And InStr(x, "n") <> 0 Then
m=m+1
End If
t=""
End If
Next i
(4) =Str(m)
End If
End If
End Sub

【参考答案】

[操作步骤]
第1步:打开工程文件sjt4.vbp。
第2步:修改程序。
第3步:调试、运......

(↓↓↓ 点击下方‘点击查看答案’看完整答案、解析 ↓↓↓)
热门 试题

问答题
在考生文件夹下有一个工程文件sjt5.vbp,其功能是: 单击“读数据”按钮,则把考生文件夹下in5.dat文件中的100个正整数读入数组a中,同时显示在Text1文本框中; 单击“素数”按钮,则将数组a中所有素数(只能被1和自身整除的数称为素数)存入数组b中,并将数组b中的元素显示在文本框Text2中。 在给出的窗体文件中已经有了全部控件(如图5所示),但程序不完整。 要求:完善程序使其实现上述功能。 注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须先执行“素数”操作,然后再用窗体右上角的关闭按钮结束程序,否则无成绩。最后程序按原文件名存盘。 [题目提供的源程序] Option Base 1 Dim a(100) As Integer, num As Integer Private Sub Command1_Click() Dim k As Integer Open App.Path & in5.dat For Input As #1 For k=1 To 100 Input #1, a(k) Text1=Text1+Str(a(k))+Space(2) Next k Close #1 End Sub Private Sub Command2_Click() Dim b(100) As Integer num=0 If Len(Text1.Text)=0 Then MsgBox 请先执行 读数据 功能! Else ’考生应编写的程序(功能:生成存放素数的数组b) ’注意:请务必将数组b的元素个数存入变量num中 ’以下程序段将b数组的内容显示在Text2中 For i=1 To num Text2.Text=Text2.Text+Str(b(i))+Space(2) Next i End If End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path & out5.dat For Output As #1 Print #1, Text2.Text Close #1 End Sub