请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
答案
更多“（12）下列事件过程的功能是：建立一个名为Datal的随机文件，存放在角度值及这些角度的正炫函数值和”相关的问题
第1题
（11 ）在窗体上画 1 个文本框，名称为 Text1 ，然后编写下列事件过程：
Private Sub Form_Load()
Open"d:\temp\dat.txt"For Output As#1
Text1.Text= “ “
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
lf 【 13 】 =13 Then
If UCase(Text1.Text)= 【 14 】 Then
Close 1
End
Else
Write#1 , 【 15 】
Text1.Text=" "
End If
End If
End Sub
以上程序的功能是：在 D 盘 temp 目录下建立 1 个名为 dat.txt 的文件，在文本框中输入字符，每次按回
车键（回车符的 ASCII 码是 13 ）都把当前文本框中的内容写入文件 dat.txt ，并清除文本框中的内容 ； 如
果输入 “ END ” ，则结束程序。请填空。
第2题
A.Right(c1，i)
B.Left(c1，i)
C.Mid(c1，i，1)
D.Mid(c1，i，i)
第3题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Static y As Integer Cls For i=0 To 2 x=x+y y=y+3 Next Print x, y End Sub 程序运行后，连续二次单击Command1按钮后，窗体上显示的是 ______。
A．9 9
B．36 18
C．30 12
D．63 27
第4题
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt3.frm，工程文件名为sit3.vbp。
2．在考生文件夹中有工程文件sit4.vbp，它包含一个窗体文件form1。在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为Command1，标题为“复制”。要求程序运行后，在列表框中自动建立四个列表项，分别为“项目1”、“项目2”、“项目3”、“项目4”。如果选择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中(程序运行结果如图2—2)。
要求：编写程序，以实现试题要求的功能。
注意：存盘时必须放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。
.jpg)
第5题
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写 如下事件过程： Private Sub Command1_Click() n=Val(Text1.Text) For i=2 To n For j=2 To Sqr(i) If i Mod j=0 Then Exit For Next j If j＞Sqr(i) Then Print i Next i End Sub 该事件过程的功能是 ______。
A．输出n以内的奇数
B．输出n以内的偶数
C．输出n以内的素数
D．输出n以内能被j整除的数
第6题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c=1234 c1=Trim(Str(c)) For i=1 T0 4 Print______ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234 则在下划线处应填入的内容为
A．Right(c1，i)
B．Left(c1，i)
C．Mid(c1，i，1)
D．Mid(c1，i，i)
第7题
触发事件过程则实现在 Text1 文本框中动态显示当前日期和时间。请补充完整。
Private Sub Form_Load()
Me.TimerInterval =1000
End Sub
Private Sub 【 12 】
Me!text1 = Now()
End Sub
第8题
在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Text1的文本哐，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中(如图1所示)。下面能实现此功能的事件过程是（）。
A.21
B.19
C.17
D.34
第9题
设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程： Private Sub Command1_Click() Static b As Variant b=Array(1，3，5，7，9) …… End Sub 此过程的功能是把数组b中的5个数逆序存放(即排列为9，7，5，3，1)。为实现此功能，省略号处的程序段应该是
A．Fori=0 T0 5-1\2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next
B．Fori=0 To 5 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next
C．Fori=0 T0 5\2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next
D．For i=l To 5\2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next
第10题
Private Type Ang
K As Integer
Sinx As Single
Cosx As Single
End Type
Dim Ksc As Ang
Private Sub Form_Click（）
Dim Y As Single
Open 【14】
Y=3.14159 / 180
For I=1 To 90
Ksc.K=I
Ksc.Sinx=Sin（I * Y）
Ksc.Cosx=Cos（I * Y）
【15】
Next I
Close #2
End Sub
第11题
在窗体上画4个文本框，并用这4个文本框建立一个控件数组，名称为Text1 (下标从0开始，自左至右顺序增大)，然后编者按写如下事件过程： Private Sub Command1_Cliek() For Each TextBox In Text1 Text1(i)=Text1(i).Index i=i+1 Next End Sub 程序运行后，单击命令按钮，4个文本框中显示的内容分别为()。
A．0 1 2 3
B．1 2 3 4
C．0 1 3 2
D．出错信息
