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

搜题

题目内容（请给出正确答案）

提问人：网友sanboot 发布时间：2022-01-07

[主观题]

设有如下通用过程：PublicSubFun（a（)，ByValx AsInteger)For i=1 To 5x = x+a（i)NextEnd Sub在窗体

设有如下通用过程： Public Sub Fun(a()， ByVal x As Integer) For i=1 To 5 x = x + a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程： Private Sub Commandl Click() Dim arr(5) As Variant For i=1 To 5 arr(i) =i Next n = 10 Call Fun(arr()， n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是

A．10

B．15

C．25

D．24

简答题官方参考答案（由简答题聘请的专业题库老师提供的解答）

查看官方参考答案

更多“设有如下通用过程：PublicSubFun（a（)，ByValx AsInteger)For i=1 To 5x = x+a（i)NextEnd Sub在窗体”相关的问题

第1题

fait des efforts réussira.

A、Celui qui

B、Ceux qui

C、Celui que

D、Celles qui

点击查看答案

第2题

D）DEFABC

（32）某人为计算 n!(0

Private Function fun(n As Integer) As Long

Dim p As Long

p=1

For k=n-1 To 2 Step-1

p=p*k

Next k

fun=p

End Function

在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3 种是正确的，错误

的方案是（）。

A）把 p=1 改为 p=n

B）把 For k=n-1 To 2 Step-1 改为 For k=1 To n-1

C）把 For k=n-1 To 2 Step-1 改为 For k=1 To n

D）把 For k=n-1 To 2 Step-1 改为 For k=2 To n

点击查看答案

第3题

设有如下程序代码： Private Function Fc(ByVal n As Integer) As Integer Fc = n * Fj(5) End Function Private Function Fj(ByVal n As Integer) As Integer Fj = n + 3 End Function Private Sub Command1_Click() Dim a As Integer a = 3 Form1.Print Fc(a) End Sub 程序时单击命令按钮，在窗体上输出的结果为（）。

A、3

B、24

C、5

D、15

点击查看答案

第4题

设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String,strL As Integer tStr="" strL=Len(xStr) i=1 Do While i＜＝strL/2 tStr＝tStr & Mid(xStr,i,1) & Mid(xStr,strL-i+1，1) i＝i+1 Loop Fun=tStr End Function 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1="abcdef" Text1.Text=UCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，则Text1中显示的是______。

A．ABCDEF

B．abcdef

C．AFBECD

D．DEFABC

点击查看答案

第5题

def fun(): s=['a','b','c'] for x in s: __________________ print("fun End") f=fun() print(f) for e in f: print(e) 程序结果： <generator object fun at 0x0000003ea99bd728> a b c fun End

A、yield s

B、yield x

C、return x

D、return s

点击查看答案

第6题

某人为计算n!(0

Private Function fun(n As Integer)As Long

Dim P As Long

P=1

For k=n-1 To 2 Step-1

P=P*k

Next k

fun=P

EndFunction

在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3种是正确的，错误的方案是

A．把P=1改为P=n

B．把For k=n-1 To 2 Step-1改为For k=1 To n-l

C．把For k=n-1 T02 Step-1改为Fork=1 To n

D．把For k=n-1 To 2 Step-l改为FOr k=2 To n

点击查看答案

第7题

在文件列表框中,要使它只显示具有归档属性和只读属性的文件,应使它的()属性为True。A.ArchiveB.No

在文件列表框中，要使它只显示具有归档属性和只读属性的文件，应使它的( )属性为True。

A．Archive

B．Norma1

C．Hidden

D．ReadOnly

点击查看答案

第8题

下面可以打开立即窗口的操作是 ______。A.Ctrl+CB.Ctrl+GC.Ctrl+SD.Ctrl+B

下面可以打开立即窗口的操作是 ______。

A．Ctrl+C

B．Ctrl+G

C．Ctrl+S

D．Ctrl+B

点击查看答案

第9题

Visual Basic对象可以分为两类，分别为上______和用户定义对象。

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

福建2024年10月自考考试时间安排表具体几号开考 2024年10月河北自考成绩查询时间什么时候出分河北2024年10月自考成绩查询系统入口在哪里 2024年10月海南自考考试时间是多少具体几号开考杭州2024年自考本科考试时间表具体是几号自考本科每年的考试时间是几月份什么时候报考自考本科每年的考试时间是什么时候一年几次陕西成人自考报名时间2024 几月开始报考 2024下半年参加河北自考的条件有什么限制 2024年成人自考条件及标准要求是什么

购买搜题卡查看答案

购买前请仔细阅读《购买须知》

请选择支付方式

微信支付

支付宝支付

点击支付即表示你同意并接受《服务协议》和《购买须知》

立即支付已付款，但不能查看答案，请点这里登录即可>>

搜题卡使用说明

1. 搜题次数扣减规则：

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