首页 > 计算机应用技术> VB程序设计

网友您好，请在下方输入框内输入要搜索的题目：

请输入或粘贴题目内容搜题

搜题

拍照、语音搜题，请扫码下载APP

题目内容（请给出正确答案）

[主观题]

编写一个过程把C盘中的Config. sys文件内容读出，并在文本框中显示出来。在窗体Form1建立一个文本

框Text1，将其MultiLine属性设置为True,将ScrollBars属性设置为3-Both。根据题意。请完善下列程序。 option Explicit Private Sub Form. C1ick() Dim chl As String, fn As Integer Dim Str As String fn=【】 Open "C:\Config. sys" For Input As fn Do While Not EOF(【】) Line Input fn, chl Str=Str+chl+vbCrLf Loop Text1. Text=【】 End Sub

答案

查看答案

发布时间：2022-12-03

更多“编写一个过程把C盘中的Config. sys文件内容读出，并在文本框中显示出来。在窗体Form1建立一个文本”相关的问题

第1题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click（）

Dim a As Integer, s As Integer

a = 8

s = 1

s = s + a

a = a－1

Loop While a ＜＝ 0

Print s; a

End Sub

程序运行后，单击命令按钮，则窗体上显示的内容是（）。

A.7 9

B.34 0

C.9 7

D.死循环

点击查看答案

第2题

在窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：

Private Sub Command1_Click（）

CommonDialog1.FileName =""

CommonDialog1.Filter="All file|*.*|（*.Doc）|*.Doc|（*.Txt）|*.Txt"

CommonDialog1.FilterIndex=1

CommonDialog1.DialogTitle="VBTest"

CommonDialog1.Action=1

End Sub

对于这个程序，以下叙述中错误的是（）。

A.该对话框被设置为"打开"对话框

B.在该对话框中指定的文件名为空

C.该对话框的标题为VBTest

D.在该对话框中指定的默认文件类型为文本文件（*.Txt）

点击查看答案

第3题

在登记学生成绩时要保证列Score的值在0到100之间，下面的方法中哪种最简单?()

在登记学生成绩时要保证列Score的值在0到100之间，下面的方法中哪种最简单？()

A.编写一个触发器来检查Score的值，如果不在0和100之间，则撤消插入

B.编写一个存储过程，管理插入和检查数值，不允许直接插入

C.生成用户自定义类型type_Score和规则，将规则与数据类型type_Score相关联，然后设置列Score的数据类型类型为type_Score

D.在Score列增加检查限制

点击查看答案

第4题

在窗体上添加一个名称为Command1的命令按钮，然后编写如下事件过程：OptionBase1PrivateSubComma

A.空白

B.错误提示

C.绿色

D.白色

点击查看答案

第5题

在窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如

下事件过程：Private Sub Command1_Click() CommonDialog1.FileName=“” CommonDialog1.Filter=“All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt” CommonDialog1.FilterIndex=2 CommonDialog1.DialogTitle=“VBTest”CommonDial

A.该对话框被设置为“打开”对话框

B.在该对话框中指定的默认文件名为空

C.该对话框的标题为VBTest

D.在该对话框中指定的默认文件类型为文本文件(*.Txt)

点击查看答案

第6题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Pr

ivate Sub Command1_Click() Dim array1(10,10) As Integer Dim I, j As Integer For I=1 To 3 For j=2 To 4 array1(I, j)=I+j Next j Next I Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是()。

A.15

B.14

C.13

D.12

点击查看答案

第7题

设有如下通用过程： Public Sub Fun(a(),ByVal x As Integer) For i = 1 To 5 x = x + a(i) N

ext End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程 Private Sub Command1_Click() Dim arr(5) As Variant For i = 1 To 5 arr(i) = i Next n = 10 Call Fun(arr(), n) Text1.Text = n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是()。

A.25

B.24

C.15

D.10

点击查看答案

第8题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Pr

ivate Sub Command1_Click() Dim array1(10，10) As Integer Dim I，j As Integer For I=1 To 3 For j=2 To 4 array(I，J)=I+j Next j Next I Text1，Text=array1(2，3)+array1(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是()。

A.15

B.14

C.13

D.12

点击查看答案

第9题

小明等5名同学一起制作一本宣传册，分工收集相关资料，他们工作用的计算机在一个局域网中，为方便共享资料，下列哪种方案最方便、快捷？

A.各自把存放资料的文件夹设置为共享，在采取相应的安全措施后，允许互相访问共享文件夹

B.各自准备一个 U盘，以便拷贝这些文件

C.把资料打印出来，每人一份

D.用电子邮件每天互相发送收集到的资料

点击查看答案

第10题

在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事

件过程： Private Sub Command1_Click() n= Text1.Text Select Case n Case 1 To 20 x=10 Case 2，4，6 x=20 Case Is＜10 x=30 Case 10 x=40 End Select Text2.Text=x End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是()。

A.40

B.30

C.20

D.10

点击查看答案

第11题

web工作流程包括：A、用户打开计算机客户端，并在浏览器中指定一个URL，浏览器便向该URL所指向的W

web工作流程包括：

A、用户打开计算机客户端，并在浏览器中指定一个URL，浏览器便向该URL所指向的Web服务器发出请求

B、Web服务器(IIS)接到浏览器的请求后，把URL转换成页面所在服务器的文件路径名

C、如果URL指向的是普通的HTML文档，Web服务器将直接把它传送给浏览器。HTML文档中可能包含用JavaScript，ActiveX，VBScript等编写的小应用程序(applet)，服务器也将它们随HTML文档一道传送到浏览器，在浏览器所在的机器上执行

D、如果HTML文档中嵌有脚本程序如php、ASP，那么Web服务器就运行脚本，并将结果传送至浏览器。Web服务器运行ASP程序时很可能调用数据库服务器