首页/ 题库 / [单选题]在窗体上画—今名称为Cmmand1的命令的答案

在窗体上画—今名称为Cmmand1的命令按钮,然后编写如下事件过程 Option Base 1 Private Sub Command1_Click() Dim a(5,5)As Integer For i=1 To 5 For j=1 To 5 a(i,j)=(i+j)*510 Next j Next i s=0 For i=1 To 5 s=s+a(i,i) Next i Print s End Sub

单选题
2022-01-03 23:45
A、15
B、13
C、11
D、9
查看答案

正确答案
A

试题解析
解析:本题是先定义一个5行5列的整型数组,再给数组元素赋值,最后再求数组矩阵中反对角线上的数据元素之和。“\”是整除运算符。

标签:
感兴趣题目
在窗体上添加一个命令按钮,然后编写其单击事件过程为: Fori=lT0 3x=4Forj=1 T0 4x=3Fork=lT0 2x=x+5NextkNextjNextiMsgBoxX则单击命令按钮后消息框的输出结果是( )。
在窗体上画一个文本框,然后编写如下事件过程:
Private Sub Form_Click()
Dim x As Integer
x = Val(InputBox("请输入一个整数"))
Print x + Text1.Text
End Sub
程序运行时,在文本框中输入12,然后单击窗体,在输入对话框中输入34,单击"确定"按钮后,在窗体上显示的内容为______。
在窗体上添加一个文本框Text 1,然后编写如下的Load事件过程,则程序运行结果为( )。 Private Sub Form_Load0 Text1. Text="" Text1. SetFocus For k = 1 To 5 t=t*k Next k Text1.Text = tEnd Sub
在窗体上画一个命令按钮,然后编写如下程序:Sub S1(ByVal x As Integer, By Val y As Integer) Dim t As Integer t=x x=y y=tEnd SubPrivate Sub Command1_ Click() Dim a As Integer, b As Integer a=10 b=30 S1 a,b Print "a=";a="b=";bEnd Sub 程序运行后,单击命令按钮,输出结果是______。
在窗体上添加一个文本框,其名称为text1,然后编写如下的Load事件过程,则该程序的运行结果是______。Private Sub form_ load Text1. Text = " " t = 1 for k = 10 To 6 Step -2 t= t* k Next k Text1. Text = tEnd Sub
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Private Sub Command1_Click() Dim Arr1(10)As Integer,arr2(10)As Integer n=3 For i=1 To 5 Arr1(i)=i arr2(n)=2*n+i Next i Print arr2(n);Arr1(n) End Sub 程序运行后,单击命令按钮,输出结果是 ______。
设在工程文件中有—个标准模块,其中定义了如下记录类型:Type Books Name As String *10 TelNum As String*20End Type在窗体上画—个名为Command1的命令按钮,要求当执行事件过程Command1_Click时,在顺序文件Petson.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是 ______。
在窗体上画两个文本框(其名称分别为Text1和Text2)和一个命令按钮(其名称为 Commandl),然后编写如下两个事件过程: Private Sub Command1_Click() Text1.Text = "Computer Rank Examination" End Sub Private Sub Text1_Change() Text2.Text = UCase(Text1.Text) End Sub程序运行后,单击命令按钮,则在Text2文本框中显示的内容是______。
现有一个已经建好的窗体,窗体中有一个命令按钮。单击该按钮,打开“employ”表,如果采用VBA语言编写,下列语句中正确的是( )。
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Sum=0 For x=1 To 5 Call subl(x, s) Sum=Sum+s Next x Print Sum End Sub Private Sub subl(y, w) w=1 For i=1 To y w=w*i Next i End Sub 程序运行后。单击命令按钮,则窗体上显示的内容是______。
在窗体上画两个单选按钮,名称分别为Option1、Option2,标题分别为“宋体”和“黑体”;1个复选框(名称为Check1,标题为“粗体”)和1个文本框(名称为Text1,Text属性为“改变文字字体”),窗体外观如图所示。程序运行后,要求“宋体”单选按钮和”粗体”复选框被选中,则以下能够实现上述操作的语句序列是(  )。
在窗体上画两个单选按钮,名称分别为Option1、Option2,标题分别为"宋体"和"黑体";一个复选框,名称为Check1,标题为"粗体";一个文本框,名称为Text1,Text属性为"改变文字字体"。要求程序运行时,"宋体"单选按钮和"粗体"复选框被选中,则能够实现上述要求的语句序列是()
相关题目
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:
OptionBase1
PrivateSubCommand1_Click()
Dima
s=0
a=Array(1,2,3,4);j=1
Fori=4To1Step-1
s=s+a(i)*j
j=j*10
Nexti
Prints
EndSub
运行上面的程序,单击命令按钮,其输出结果是(  )。
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:
PrivateSubCommand1_Click()
n=Val(Text1.Text)
Fori=2Ton
Forj=2ToSqr(i)
IfiModj=0ThenExitFor
Nextj
Ifj>Sqr(i)ThenPrinti
Nexti
EndSub
该事件过程的功能是(  )。
在窗体上画一个名称为CommonDialog1的通用对话框,一个名称为Command1的命令按钮,要求单击命令按钮时,打开一个保存文件的对话框,该窗口的标题为"Save",缺省文件名称为"SaveFile",在"文件类型"栏中显示*txt,则能够满足上述要求的程序是(  )。{Page}
设有如下通用过程: Public Sub Fun(a(),ByVal x As Integer) For i = 1 To 5 x = x + a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下的事件过程 Private Sub Command1_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 程序运行后,单击命令按钮,则在文本框中显示的内容是_____
要使数组的默认下标从“1开始,则应在窗体或标准模块代码的声明部分使用语句Option Base 1。 ( )
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim a s = 0 a = Array (1,2,3,4) j = 1 For i = 4 To 1 Step - 1 s = s + a (i) * j j = j * 10 Next i Print s End Sub 运行上面的程序,单击命令按钮,其输出结果是______
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a As Integer, s As Integer a = 8 a = 1 Do s = s + a a = a - 1 Loop While a <= 0 Print s; a End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是_____
在窗体上画一个文本框,然后编写如下事件过程:Private Sub Form_Click()Dim x As Integerx = Val(InputBox("请输入一个整数"))Print x + Text1TextEnd Sub程序运行时,在文本框中输入12,然后单击窗体,在输入对话框中输入34,单击"确定"按钮后,在窗体上显示的内容为______。
在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:Private Sub Command1_Click()S$ = InputBox("请输入一个字符串")Text1Text = S$End SubPrivate Sub Text1_Change()Label1Caption = UCase(Mid(Text1Text, 7))End Sub程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串"VisualBasic",则在标签中显示的内容是________。
在窗体上画1个命令按钮,并编写如下事件过程:Private Sub Command1_Click()For i=5 to 1 step -08Print Int(i);Next iEnd Sub运行程序,单击命令按钮,窗体上显示的内容为________。
在窗体上画一个文本框,然后编写如下事件过程:Private Sub Form_Click() Dim x As Integer x = Val(InputBox("请输入一个整数")) Print x + Text1TextEnd Sub程序运行时,在文本框中输入12,然后单击窗体,在输入对话框中输入34,单击"确定"按钮后,在窗体上显示的内容为______。
在工程中的标准模块中定义了如下数据类型: Type fruit orange As Integer apple As Integer End Type 在窗体上有—命令按钮Command1,要求当单击命令按钮时在C:根目录下的顺序文件myfrtac.txt 中写入一条记录,下列能够完成改操作的事件过程是______ 。
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command_Click( ) S=0 Do s=(s + 1) * (s +2) Number=Number+1 Loop Until S>=30 Print Number,S End Sub 程序运行后,输出的结果是
在窗体上画一个命令按钮,然后写出如下事件过程: Private Sub Command1 _ Click( ) S=1 Do S=(S + 1) ^(S + 2) Number=Number+1 Loop Until S>=6 Print Number,S End Sub 程序运行后,输出的结果是
在窗体上画—今名称为Cmmand1的命令按钮,然后编写如下事件过程 Option Base 1 Private Sub Command1_Click() Dim a(5,5)As Integer For i=1 To 5 For j=1 To 5 a(i,j)=(i+j)*510 Next j Next i s=0 For i=1 To 5 s=s+a(i,i) Next i Print s End Sub
设有如下通用过程: Public Function Fun(xStr As String)As String Dim tStr As String,strL As Integer strL=Len(xStr) Do While i<=strL/2 tStr=tStr&Mid(xStr,i,1)&Mid(xStr,strL-i+1,1) i=i+1 Loop 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程: Private Sub Command1_Click() Dim S1 As String Textl.Text=UCase(Fun(S1)) 程序运行后,单击命令按钮,则Textl中显示的是【 】
对窗体编写如下事件过程: Option Base 1 Private Sub Form_KeyPress (KeyAScii AS Integer) arr=Array(12,15,18,20,24) m1=arr(1) m2=1 If fKeyAscii=12 Then For i=2 To 5 If arr(i)>m1 Then m1=arr(i) m2=i End If Next i End If Print m1 Print m2 End Sub 程序运行之后按回车键,输出结果为
在窗体上画一个名称为Connand1的命令按钮,然后编写如下程序: Private Sub Command1_Click() Dim i As Integer, j As Integer Dim a(10, 10) As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = (i - 1) * 3 + j Print a(i, j); Next j Print Next i End Sub程序运行后,单击命令按钮,窗体上显示的是______。
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序: Private Sub Command1_Click() Dim i As Integer,j As Integer Dim a(10, 10)As Integer For i=1 To 3 For i=1 To 3 a(i,j)=(i-1) *3+j Print a(i,j); Next i Print Next i End Sub 程序运行后,单击命令按钮,窗体上显示的是
在窗体上画一个命令按钮,名称为Command1,然后编写如下程序: Private Sub Command1_Click() For i = 1 To 2 For j = 1 To i Print String(i, "Hello") Next j Print Next i End Sub
广告位招租WX:84302438

免费的网站请分享给朋友吧