题目内容

设在工程文件中有一个标准模块，其中定义了下列记录类型：Type BooksName As String10TelNum As String20End，Type在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1 Click 时，在顺序文件Person．txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是（　）。

2024-07-09

A.Private Sub Command1 Click（　）Dim B AS BooksOpen"Person txt"For Output As#1Name=InputBox(”输入姓名”)relNum=lnputBox(”输入电话号码”)Wlite#1 B Name，B TelNumCh,se#1End Sub

B.Private Sub Command1 Click（　）Dim B AS BooksOpen"Person txt"For Input As#1>Name=InputBox("输入姓名")TelNum=InputBox("输入电话号码")Print#1，B．Name，B．TelNamClose#1End Sub

C.Private Sub Command1 Click（　）Dim BAS BooksOpen"Person txt"For Output As#1Name=InputBox("输入姓名")TelNum=InputBox("输入电话号码")Write#1，BClose#1End Sub

D.Private Sub Commandl Click（　）Open"Person txt"For Input As#1Name=lnputBox("输入姓名")TelNum=lnputBox("输入电话号码")Prim#1 Name TelNumClose#1End Sub

题目答案

查看最佳答案免验证查看最佳答案

试卷相关题目

1在Visual Basic集成环境中，可以列出工程中所有模块名称的窗口是（　　）。
A.工程资源管理器窗口
B.窗体设计窗口
C.属性窗口
D.代码窗口
开始考试点击查看答案
2计算的近似值的一个公式是π／4=1-(1／3)+(1／5)-(1／7)+…+(-1)n-1(1／2n -1)。某人编写下面的程序用此公式计算并输出的近似值：Private Sub Cornmand1 Click（　　）P1=1Sign=1n=20000For k=3 To rSign=-SignPI=PI+SiRn／kNext kPrint PI*4End Sub运行后发现结果勾3．22751，显然，程序需要修改。下面修改方案中正确的是（　　）。
A.把For k=3 To n改为For k=1 To n
B.把n=20000改为n=20000000
C.把For k=3 To n改为For k=3 To n Step 2
D.把PI=1改为P1=0
开始考试点击查看答案
3下列程序执行后，变量X的值为（　　）。Dim a，b，C，d As SingleDim X As Singlef1=10b=30c=400If b>fl Thend=fl：fl=b：b=dEnd IfIf b>C ThenX=bElse If fl>c ThenX=cElseX=aEnd If
A.10
B.30
C.400
D.430
开始考试点击查看答案
4在新建一个Visual Basic工程时，将新建窗体的Name属性设置为TheFirst，则默认的窗体文件名为（　　）。
A.Forml．frm
B.工程1．frm
C.TheFirst．frm
D.Form1．vbp
开始考试点击查看答案
5耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是（　）。
A.提高耦合性降低内聚性有利于提高模块的独立性
B.降低耦合性提高内聚性有利于提高模块的独立性
C.耦合性是指一个模块内部各个元素问彼此结合的紧密程度
D.内聚性是指模块间互相连接的紧密程度
开始考试点击查看答案
6使用驱动器列表框Drive1、目录列表框Dir1、文件列表框File1时，需要设置控件的同步，以下能够正确设置两个控件同步的命令是（　　）。
A.Dir1．Path=Drive1．Path
B.File1．Path=Dri1．Path
C.File1．Path=Drive1．Path
D.Drive1．Drive=Dri1．Path
开始考试点击查看答案
7在窗体上画一个命令按钮(名称为Command1)，并编写下列代码：Function Fun1(ByVa1 a As Integer，b As Integer)As IntegerDim t As Integert=a-bb=t+aFun1=t+bEnd FunctionPrivate Sub Command1Click（　）Dim X As Integerx=10Print Fun1(Vun1(X，(Fun1(x，x-1)))，x-1)End Sub程序运行后，单击命令按钮，输出结果是（　）。
A.10
B.0C.11D.21
开始考试点击查看答案
8若看到程序中确以下事件过程，则可以肯定的是，当程序运行时（　　）。Private Sub Click—MouseDown(Button As Integer，Shift As Integer，X As Single，YAs Single)Print"VB Program"End Sub
A.用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程
B.用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程
C.用鼠标右键单击名称为“MouseDown”的命令按钮时，执行此过程
D.用鼠标左键或右键单击名称为“Click”的命令按钮时，执行此过程
开始考试点击查看答案
9用来设置文字字体是否斜体的属性是（　　）。
A.FontUnderline
B.FontBold
C.FontSlope
D.FontItalic
开始考试点击查看答案
10在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程：Private Sub Text1_KeyPress(KeyAscii As Integer)Dim str As String，n As Integerstr=UCase(Chr(KeyAscii))n=Len(str)。Text1．Text=String(n，str)End Sub程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为（　　）。
A.A.pp
B.pP
C.ｐｐ
D.Pp
开始考试点击查看答案