单项选择题

如下图所示，只执行下列程序后，有Text1.Text=Text1，文本框不能出现“*****”的程序是______。

A．Private Sub form_ Load() Text1. Text="*****"End Sub
B．Private Sub form_ Load() Text1. PasswordChar=“*”End Sub
C．Private Sub form_ Load() Text1. Visible="*****" End Sub
D．Private Sub form Load() Text1. Text= String(5，"*")End Sub

<上一题目录下一题>

热门试题

单项选择题

下列程序的运行结果是 ______。Private Sub Command1_ Click () a =1: b=1 for i = 1 To 3 a= a+ b: b=b+ a Next i Print a, bEnd Sub

A．6 6
B．5 8
C．13 21
D．34 55

单项选择题

设在工程中有一个标准模块，其中定义了如下记录类型：Type Books Name As String *10 TelNum As String*20 End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_ Click时，在顺序文件 Person.txt中写入一条记录。下列能够完成该操作的事件过程是______。

A．Private Sub Command1_ Click() Dim x As Books Open "C：\Perso txt" for Output As #1 Name=InputBox(“输入姓名”) TelNum=InPutBox(“输入电话号码”) Write #1，Name，TelNum Close #1 End Sub
B．Private Sub Command1_ Click() Dim x As Books Open "c：\Perso txt" for Input As #1 Name=InputBox(“输入姓名”) TelNum=InputBox(“输入电话号码”) Print #1， Name， TelNum Close #1End Sub
C．Private Sub Command1_ Click() Dim x As Books Open "c：\Perso txt" for Output As #1 Name=InputBox(“输入姓名”) TelNum= InputBox(“输入电话号码”) Write #1，x Close #1End Sub
D．Private Sub Command1_ Click() Dim x As Books Open "c：\Perso txt" for Input As #1 Name= InputBox(“输入姓名”) TelNum=InputBox(“输入电话号码”) Print #1，Name，TeINum Close #1End Sub