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

[主观题]

窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序：Dim y As IntegerPrivate S

窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序： Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 Text1.Text=Fun2(Funl(x),y) Text2.Text=Fun1(x) End Sub Private Function Fun1(x As Integer)As Integer x=x+y y=x+y Fun1=x+y End Function Private Function Fun2(x As Integer,y As Integer)As Integer Fun2=2*x+y End Function 当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别是

A．2 4 2 4

B．2 4 4 8

C．10 10 58 58

D．4 4 8 8

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

参考答案

查看官方参考答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“窗体上有Text1、Text2两个文本框及一个命令按钮Com…”相关的问题

第1题

窗体中有文本框为Text1和Text2。运行程序时单击"运行"按钮Command1，在Text1中输入整数m（m>0），在Text2中显示输出m的全部除1和自身之外的因子。例如，20的因子有2，4，5，10，输出结果为"2,4,5,10,"；16的因子为2，4，8，输出结果为"2,4,8,"。事件代码如下： Private Sub Command1_Click() m = Val(Me!Text1) resule = "" k = 2 Do If m Mod k = 0 Then result = result & k & "," k = k + 1 Loop While 【】 Me!Text2 = result End Sub 程序【】处应填写的语句是______。

A、k>m

B、k<m<br> C、k>=m

D、k<=m<br>

点击查看答案

第2题

设有如下的记录类型： TypeStudent number As String name AS String age As Integer End Type 则正确引用该记录类型变量的代码是()。

A．Student.name="张红"

B．Dim s As Student s.name="张红"

C．Dim s As Type Student s.name="张红"

D．Dim s As Type s.name="张红"

点击查看答案

第3题

下列程序的执行结果为()。 n=0 j=1 Do Until n＞2 n=n+1 j=j+n*(n+1) Loop Print n;j

A．0 1

B．3 7

C．3 21

D．3 13

点击查看答案

第4题

一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Public X As Integer，在Model1中有语句Public Y As Integer，则以下叙述中正确的是()。

A．变量X、Y的作用域相同

B．Y的作用域是Model1

C．在Form1中可以直接使用X

D．在Form2中可以直接使用X和Y

点击查看答案

第5题

在窗体上绘制一个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10,10)As Integer Dim i As Integer,j As Integer For i =2 To 4 For j =2 To 4 arr(i,j)=i*j Next j Next i Label1.Caption=Str(arr(2,2)+arr(3,3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是()。

A．12

B．13

C．14

D．15

点击查看答案

第6题

执行以下程序段后，变量C$的值为()。 A$="Visual Basic Programing" B$="Quick" C$=B$ & Ucase(Mid$(A$,7,6)) & Right$(A$,11)

A．Visual BASIC Programing

B．QuickBasic Programing

C．QUICK Basic Programing

D．Quick BASIC Programing

点击查看答案

第7题

在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim strAs String,n As Integer Str=UCase(Chr(KeyAscii) n=Len(str) Text1=String(n,str) End Sub 程序运行后，如果在键盘上输入单字母“k”，则在文本框Text1中显示的内容为()。

A．kk

B．kK

C．KK

D．Kk

点击查看答案

第8题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Crick() Dim I As Integer,n As Integer For j=0 To 50 i=i+3 n=n+1 If i＞10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是()。

A．2

B．3

C．4

D．5

点击查看答案

第9题

下列程序的输出结果为()。 Private Sub Command1_Click() Dim a(20) For j=1 To 20 Step2 a(j)=j Next i Print a(1)+a(2)+a(3) End Sub

A．4

B．5

C．6

D．7

点击查看答案

第10题

如果模块定义为： DefStr C-F 则以下语句运行后输出结果是()。 d$="321" f="654" print d+f$

A．321654

B．975

C．654321

D．显示出错信息

点击查看答案

警告：系统检测到您的账号存在安全风险

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

微信搜一搜

简答题

点击打开微信

警告：系统检测到您的账号存在安全风险

抱歉，您的账号因涉嫌违反简答题购买须知被冻结。您可在“简答题”微信公众号中的“官网服务”-“账号解封申请”申请解封，或联系客服。

微信搜一搜

简答题

点击打开微信