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

搜题

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

提问人：网友amy1766 发布时间：2022-01-06

[主观题]

假定有以下函数过程：Function Fun（S AsString)AsStringDim s1 As StringFor i=1 To Len（S)s1 = U

假定有以下函数过程： Function Fun(S As String) As String Dim s1 As String For i=1 To Len(S) s1 = UCase(Mid(S， i， 1)) +s1 Next i Fun =s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Str1 As String， Str2 As String Strl = InputBox(“请输入一个字符串”) Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定” 按钮后在窗体上的输出结果为，

A．abcdefg

B．ABCDEFG

C．gfedcba

D．GFEDCBA

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

查看官方参考答案

更多“假定有以下函数过程：Function Fun（S AsString)AsStringDim s1 As StringFor i=1 To Len（S)s1 = U”相关的问题

第1题

定义定长字符串的方法是（）。

A. Dim str As string

B. Dim str As string*10

C. Dim str$=10

D. Dim str$

点击查看答案

第2题

现有： String s="write a line to a file"; w.print(s+"\n")；哪一个是对的？

A、w可以是PrintWriter类型，也可以足BufferedWriter类型。

B、w不可以是PrintWriter类型，也不可以足BufferedWriter类型。

C、w 可以是BufferedWriter类型，但不可以是PrintWriter类型。

D、w可以是PrintWriter类型，但不可以是BufferedWriter类型。

点击查看答案

第3题

有如下函数过程。

Function Fun(By Val x As Integer,By Val y As Integer)As Integer

Do While y$amp;reminder=x Mod y

x=y

y=reminder

Loop

Fun=x

End Function

以下调用函数的事件过程,该程序的运行结果是

Private Sub Command7_Click()

Dim a As Integer,b As Integer

a=100:b=25

x=Fun(a,B)

Print x

End Sub

A．0

B．25

C．50

D．100

点击查看答案

第4题

（27）下列函数过程 Function Func（a As Integer,b As Integer）As Integer Static m As Integer,i As Integer M=0 i=2 A=i+m+1 b=i+a+b Func2=m End Function Private Sub Command1_Click() Dim p As Integer,k As Integer,m As Integer k=4 m=1 P=Func2(k,m) Print k;m End Sub程序运行后，单击命令按钮，输出结果是 A.3 63 6 B.3 63 11C.3 113 6 D.3 113 11

点击查看答案

第5题

如下语句执行后，s的值是（）。 Dim s As String s = 123 + 456

A、“123456”

B、“579”

C、“123 456”

D、579

点击查看答案

第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题

设有如下程序代码： 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

点击查看答案

第8题

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

A．ABCDEF

B．abcdef

C．defdef

D．defabc

点击查看答案

第9题

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

点击查看答案

第10题

设有如下通用过程：

Public Function Fun（xStr As String）

Dim tStr As String, srtL 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

在窗体上画一个名称为 Textl 的文本框和一个名称为 Command1 的命令按钮，然后编写如下的事件过程：

Private Sub Command 1_ Click（）

Dim S1 As String

S1="abcdef"

Text1.Text=UCase（Fun（S1））

End Sub

程序运行后，单击命令按钮，则Text1中显示的是（）。 A．ABCDEF

B．abcdef

C．AFBECD

D．DEFABC

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

成人高考：优势全面解读【浙江成人高考】成考后的学习方式,，2024年徐州工程学院成人高考录取分数线 2024年成人高考报考指南！12个步骤全流程梳理 24上半年福建自考成绩查询系统入口官网指南 2024年自考大专需要多少学费考完要多久 2024年江苏成人高考要注意些什么 24上半年江西自学考试成绩查询官网入口使用指南 24年成人高考河南考试时间 2024年江苏成考报名材料是什么 24上半年江苏自考本科成绩查询时间详细指南

购买搜题卡查看答案

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

请选择支付方式

微信支付

支付宝支付

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

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

搜题卡使用说明

1. 搜题次数扣减规则：

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