搜题
网友您好,请在下方输入框内输入要搜索的题目:
搜题
题目内容 (请给出正确答案)
提问人:网友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对象可以分为两类,分别为上______和用户定义对象。

点击查看答案
重要提示: 请勿将账号共享给其他人使用,违者账号将被封禁!
查看《购买须知》>>>
重置密码
账号:
旧密码:
新密码:
确认密码:
确认修改
购买搜题卡查看答案
购买前请仔细阅读《购买须知》
请选择支付方式
微信支付
支付宝支付
点击支付即表示你同意并接受《服务协议》《购买须知》
立即支付
搜题卡使用说明

1. 搜题次数扣减规则:

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

备注:网站、APP、小程序均支持文字搜题、查看答案;语音搜题、单题拍照识别、整页拍照识别仅APP、小程序支持。

2. 使用语音搜索、拍照搜索等AI功能需安装APP(或打开微信小程序)。

3. 搜题卡过期将作废,不支持退款,请在有效期内使用完毕。

请使用微信扫码支付(元)

订单号:

遇到问题请联系在线客服

请不要关闭本页面,支付完成后请点击【支付完成】按钮
遇到问题请联系在线客服
恭喜您,购买搜题卡成功 系统为您生成的账号密码如下:
重要提示:请勿将账号共享给其他人使用,违者账号将被封禁。
发送账号到微信 保存账号查看答案
怕账号密码记不住?建议关注微信公众号绑定微信,开通微信扫码登录功能
警告:系统检测到您的账号存在安全风险

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

- 微信扫码关注简答题 -
警告:系统检测到您的账号存在安全风险
抱歉,您的账号因涉嫌违反简答题购买须知被冻结。您可在“简答题”微信公众号中的“官网服务”-“账号解封申请”申请解封,或联系客服
- 微信扫码关注简答题 -
请用微信扫码测试
欢迎分享答案

为鼓励登录用户提交答案,简答题每个月将会抽取一批参与作答的用户给予奖励,具体奖励活动请关注官方微信公众号:简答题

简答题官方微信公众号

简答题
下载APP
关注公众号
TOP