题目内容 （请给出正确答案）
[主观题]

下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函

数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。 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 Dim i As Integer Dim

A．..\Data1.txtFor Random As #1 Len=10 Put #1,i,Ksc

B．..\Data1.txtFor Random As #1 Len=10 Put #1,Y,Ksc

C．..\Data1.txtFor Random As #1 Put #1,i,Ksc

D．..\Data1.txtFor Random As #1 Put #1,Y,Ksc

查看答案
如搜索结果不匹配，请 联系老师 获取答案
您可能会需要：
您的账号：，可能会需要：
您的账号：
发送账号密码至手机
发送
重置密码 查看订单 联系客服
安装赏学吧APP，拍照搜题省时又省心！
更多“下列事件过程的功能是：建立一个名为Datal的随机文件，存放…”相关的问题

第1题

下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值
和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。

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

点击查看答案

第2题

（12）下列事件过程的功能是：建立一个名为Datal的随机文件，存放在角度值及这些角度的正炫函数值和
余弦函数值，角度为1,2,3···，90.请在空白处填上合适的代码，将程序补充完整。 Pivate Type Ang K As Integer Sinx As Single Cosx As Single End Type 定义Ang类型的变量Ksc Pivate Sub Form_Click() Dim Y As Single Open "C:\Datal.txt"For Random As#1 Len=10 Put#1,1,Ksc Y=3.14159/180 For i=1 To 90 Ksc.K=i _______=Sin(i*Y)给变量Ksc的正弦函数值赋值 Ksc.Cosx=Cos(i*Y) Next i Close#1 End Sub

点击查看答案

第3题

下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函
数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整()。 Private Type Ang K As Integer Sinx As Single Cosx As SingleEnd TypeDim Ksc As AngPrivate Sub Form_Click()Dim Y As SingleDim i As IntegerDim Ksc As Ang Open____________ Y=3.14159/180 For i=1 To 90 Ksc.K=i Ksc.Sinx=sin(i*Y) Ksc.Cosx=Cos(i*Y) ____________ Next i Close #2End Sub

A．..\Data1.txtFor Random As #1 Len=10 Put#1, i, Ksc

B．..\Data1.txtFor Random As #1 Len=10 Put#1, Y, Ksc

C．..\Data1.txtFor Random As #1 Put#1, i, Ksc

D．..\Data1.txtFor Random As #1 Put#1, Y, Ksc

点击查看答案

第4题

（32）假定建立一个名为Command1的命令按钮数组，则下列说法中错误的是

A.数组中每个命令按钮的名称（名称属性）均为 Command1

B.数组中每个命令按钮的标题（Caption属性）都一样

C.数组中所有命令按钮可以使用同一个事件过程

D.用名称Command1（下标）可以访问数组中的每个命令按钮

点击查看答案

第5题

（34）下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余
弦函数值，角度为1,2,3，…，90。请在空白处填入适当的内容，将程序补充完整。 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 Dim i As Integer Dim Ksc As Ang Open Y=3.14159/180 For i=1 To 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) ___________ Next i Close #2 End SubA."‥\Datal.txt"For Random As#1 Len=10 Put#1,i,KscB."‥\Datal.txt"For Random As#1 Len=10 Put#1,Y,Ksc C."‥\Datal.txt"For Random As#1 Put#1,i,KscD."‥\Datal.txt"For Random As#1 Put#1,Y,Ksc

点击查看答案

第6题

设有语句：Open"C:\Test. Dat" For Output As #1则以下错误的叙述是：A．该语句打开C盘根目录下一个

设有语句： Open"C:\Test. Dat" For Output As #1 则以下错误的叙述是：

A．该语句打开C盘根目录下一个已存在的文件Test. Dat

B．该语句在C盘根目录下建立一个名为Test. Dat的文件

C．该语句建立的文件的文件号为1

D．执行该语句后，就可以通过Print#语句向文件Test. Dat中写入信息

点击查看答案

第7题

在名为Form1的窗体上建立一个名为List1的列表框（如下图所示)。编写适当的事件过程，使在程序运行后

在名为Form1的窗体上建立一个名为List1的列表框(如下图所示)。编写适当的事件过程，使在程序运行后，通过Form. Load()事件过程加载窗体时，执行语句List1.Addltem”Item"；单击某个列表项时，执行语句List1.AddltemList1.Text一次。

注意：

文件必须存放在考生文件夹中， 窗体文件名为execise36.frm，工程文件名为

execise36.vbp。

在名为Form1的窗体上建立一个名为List1的列表框（如下图所示)。编写适当的事件过程，使在程序运

点击查看答案

第8题

在名为Form1的窗体中建立一个命令按钮，名为Cmd1，标题为Show（如下图所示)。编写适当的事件过程，使

在名为Form1的窗体中建立一个命令按钮，名为Cmd1，标题为Show(如下图所示)。编写适当的事件过程，使程序运行后，若单击Show按钮，则执行语句Form1.Print"Show"如果单击窗体，则执行语句Form1.Cls。

在名为Form1的窗体中建立一个命令按钮，名为Cmd1，标题为Show（如下图所示)。编写适当的事件

注意：

文件必须存放在考生文件夹中， 窗体文件名为execise351frm，工程文件名为 execise35.vbp。

点击查看答案

第9题

（11 ）在窗体上画 1 个文本框，名称为 Text1 ，然后编写下列事件过程：Private Sub Form_Load（)Ope

（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 ” ，则结束程序。请填空。

点击查看答案
粘贴 取消
立即搜索
APP特色功能
语音搜题 语音识别 秒出答案
APP特色功能
拍照搜题 哪里不会 拍哪里
发送账号至手机
密码将被重置
获取验证码
发送
温馨提示
该问题答案仅针对搜题卡用户开放，请点击购买搜题卡。
马上购买搜题卡
我已购买搜题卡， 登录账号 继续查看答案
重置密码
确认修改
温馨提示
每个试题只能免费做一次，如需多次做题，请购买搜题卡
立即购买
稍后再说
警告：系统检测到您的账号存在安全风险

为了保护您的账号安全，请在“赏学吧”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！

微信搜一搜
赏学吧
点击打开微信
警告：系统检测到您的账号存在安全风险
抱歉，您的账号因涉嫌违反赏学吧购买须知被冻结。您可在“赏学吧”微信公众号中的“官网服务”-“账号解封申请”申请解封，或联系客服。
微信搜一搜
赏学吧
点击打开微信