当前位置：首页 > 大学网课 > 大学网课

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

搜题

题目

[单选题]

在窗体上画一个名为Command1的命令按钮,然后编写以下程序 Private Sub Command1_Click（) Dim a（10) as integer For k=10 to 1 Step -1 a（k)=20-2*k Next k k=k+7 Print a（k-a（k)) End Sub 运行程序后,单击命令按钮,输出结果是。

A.18

B.12

C.8

D.6

答案

B 解析：考查考生对文件操作语句的掌握情况。打开随机文件的一般格式为Open'文件名'For Random As#文件号[Len=记录长度]随机文件的写操作通过Put语句来实现,其格式为:Put#文件号,[记录号],变量文件指针的定位、读取文件等。

更多“在窗体上画一个名为Command1的命令按钮,然后编写以下程序 Private Sub Command1_Click（) Dim a（10) as integer For k=10 to 1 Ste…”相关的问题

第1题

在窗体上添加一个命令按钮，名称为Command1，编写如下事件过程： Private Sub Command1_Click（) Dim arr arr = Array（"武汉", "温州", "吉林", "哈尔滨", "北京") Print arr（2) End Sub 运行时，单击命令按钮后输出的结果是（）。

A.温州

B.吉林

C.哈尔滨

D.北京

点击查看答案

第2题

窗体上有一个名为Command1的命令按钮,并有如下程序: Private Command1_Click（) Dim a（10),x% For k=1 to 10 a（k)=Int（Rnd*90+10) x=x+a（k) Mod 2 Next k print x End Sub 程序运行后，单击命令按钮．输出结果是。

A.10个数中奇数的个数

B.10个数中偶数的个数

C.10个数中奇数的累加和

D.10个数中偶数的累加和

点击查看答案

第3题

编写数字的英文单词显示程序，窗体中安排一个文本框、一个按钮和一个标签，从文本框输入一个数字（0～9），点击按钮将其对应的英文单词（如：zero、one、two等)显示在标签中。

点击查看答案

第4题

窗体上有一个名称为Command1的命令按钮，一个名称为List1的列表框。命令按钮的单击事件过程如下： Private Sub Command1_Click（) Open "c:f1.txt" For Input As #1 Do While Not EOF（1) Input #1, str1 List1.AddItem str1 Loop Close End Sub 对于上述程序，以下叙述中错误的是________。

A.Close的作用是关闭已经打开的数据文件

B.单击命令按钮后，把f1.txt中的所有内容添加到列表框中

C.以输入方式打开随机文件f1.txt

D.运行程序后，列表框中的列表项都是f1.txt中的记录

点击查看答案

第5题

打开教学管理（拓展）数据库文件，对窗体对象fTest完成以下操作： 1.将窗体"标题"属性设为"测试窗体"；在窗体的主体节区添加一个命令按钮，命名为"bt"，标题为"测试"；设置该命令按钮的单击事件属性为给定的宏对象"mTest"。 2.以"bt1"命令按钮为大小及左边距为基准，将"bt2"和"bt3"命令按钮放置到相应位置，使得"bt2"命令按钮在垂直方向上与"bt1"和"bt3"间距相等。

点击查看答案

第6题

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

A.Private Sub Command1_Click()Dim B As BooksOpen 'Person.txt' For Output As #1B.Name＝InputBox('输入姓名')B.TelNum＝InputBox('输入电话号码')Write #1， B.Name， B.TelNumClose #1End Sub###SXB###B.Private Sub Command1_Click()Dim B As BooksOpen 'Person.txt' For Input As #1B.Name＝InputBox('输入姓名')B.TelNum＝InputBox('输入电话号码')Print #1， B.Name， B.TelNumClose #1End Sub###SXB###C.Private Sub Command1_Click()Dim B As BooksOpen 'Person.txt' For Output As #1B.Name＝InputBox('

点击查看答案

第7题

在窗体Form1上画一个名称为Command1的命令按钮，编写如下程序代码： Private Type stu sn As String * 20 class As String * 20 End Type Private Sub Command1_Click（) Dim s As stu Open "c:allstu.dat" For Random As #1 Len = Len（s) s.sn = "John" s.class = "Computer 2013" Put #1, , s Close #1 End Sub 则以下叙述中正确的是________。

A.文件c:allstu.dat中的每条记录是等长的

B.定义记录类型stu的Type语句可以移到事件过程Command1_Click中

C.如果文件c:allstu.dat不存在，则Open语句执行中出现'文件未找到'的错误

D.语句'Put #1, , s'中没有指明记录号，因此系统总是把记录写到文件的头部

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

功能	扣减规则
功能	基础费（查看答案）	加收费（AI功能）
文字搜题、查看答案	1/每题	0/每次
语音搜题、查看答案	1/每题	2/每次
单题拍照识别、查看答案	1/每题	2/每次
整页拍照识别、查看答案	1/每题	5/每次

在窗体上画一个名为Command1的 命令按钮,然后编写以下程序 Private Sub Command1_Click（) Dim a（10) as integer For k=10 to 1 Step -1 a（k)=20-2*k Next k k=k+7 Print a（k-a（k)) End Sub 运行程序后,单击命令按钮,输出结果是 。

在窗体上画一个名为Command1的命令按钮,然后编写以下程序 Private Sub Command1_Click（) Dim a（10) as integer For k=10 to 1 Step -1 a（k)=20-2*k Next k k=k+7 Print a（k-a（k)) End Sub 运行程序后,单击命令按钮,输出结果是。