题目内容

以下程序的功能是：将当前目录下的顺序文件mText1.txt的内容读入内存，并在图片框 Picture1中显示出来。请完善程序。 Private Sub Command1_Click() Dim inData As String Open ".\mText1.txt"【】As 1 Do While Not EOF(1) Input 1，inData Picture1.Print inData Loop Close 1 End Sub

查看答案

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

更多问题

窗体上有一个命令按钮，数据文件data.txt的内容如下： "语文" "2001", 87 "数学"

为什么对汽车要进行漆面处理？

以下程序的功能是，从键盘上输入若干数据，统计并输出最大值和最小值，当输入负数时结束输入，请填空。 Dim amax As Single，amin As Single x=InputBox("请输入数据") amax=x amin=x Do While【】 If x＞amax Then amax=x End If If【】Then amin=x End If x=InputBox("请输入数据") Loop Print "Max="；amax；"Min="；amin End Sub

汽车清洗是及时清除车表尘土，酸雨、沥青等污染物，保持车表清洁，防止漆面及车身其他部件受到(腐蚀)和损害。

A. 翻新
B. 清洁
C. 腐蚀
D. 刷洗