编写如下程序:Private Sub Commandl_Click( ) Dim num As Integer,k As Integer,n As Integer num=InputBox(“请输入一个正整数:”) k=num n=2 Do Do While num Mod n=0 Prim n::num=num/n Loop n=n+1 Loop Until n>k/2End Sub程序运行后,单击命令按钮Commandl,并输入数值20,则输出结果为...
有下面程序代码: Private Sub Commandl—Click( ) a=Array(1,2,3,4,5,6,7,8,9,1 0) n=UBound(a) For k=0 To UBound(a)/2 Print a(k)*a(n); n=n—1 Next k End Sub程序运行后,单击命令按钮Command1,输出结果是( )。 A. 2 6 12 20 30 B. 2 12 20 56 90 C. 30 28 24 18...
1下面程序的输出结果是( ) Private Sub Command1_Click() ch$="ABCDEF" proc ch Print ch End Sub Private Sub proc(ch As String) S=" " For k=Len(ch) To 1 Step-1 s=s&Mid(ch,k,1) Next k ch=s End Sub A.ABCDEF B.FEDCBA C.A D.F 2下面程序的输出结果是___。 Private Sub ...
2有如下程序: Private Sub Command1_Click()Dim k As Integer,m As Integer Dim op As Integer k=4:m=1 op:PPC(k,m):Print op; op:PPC(k,m):Print op End Sub Private Function,PPC(a As Integer,b As Integer) Static m As Integer,i As Integer m=0:i=2 i=i+m+1 m=i+a+b PPC=m...
在语句”Private Sub Command1_Click“中，Click指的是一个事件，即鼠标点击事件。具体来说：事件类型：Click是一个常见的事件类型，表示鼠标点击动作。在这个上下文中，它特指用户用鼠标点击某个控件时触发的事件。控件关联：该事件与名为Command1的控件相关联。在Visual Basic或类似的环境中，Command1...
编写如下程序:Private Sub Command1_Click( ) Dim a, b, c, c1, c2$ a = InputBox(“请输入一个字符串”) b = InputBox(“再输入另一个字符串”) c = ““ For k = 1 To IIf(Len(a) < Len(b), Len(b), Len(a)) c1 = IIf(k <= Len(a), Mid(a, k, 1), ““) c2 = IIf...
Private Sub command1_click() Dim conn As New ADODB.Connection, rs As New ADODB.Recordset Dim strSQL As String Dim a,b as string ‘分别定义姓名、余额 Dim n as integer conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" App.Path "\information.accdb" '打开到数据库的...
1在窗体中有一个命令按钮Command1,编写事件代码如下: Private Sub Command1_Click() Dim s As Integer s = p(1) + p(2) + p(3) + p(4) debug.Print s End Sub Public Function p (N As Integer) Dim Sum As Integer Sum = 0 For i = 1 To N Sum = Sum + 1 Next i P = Sum End ...
1在窗体上有一个命令按钮Command1,编写事件代码如下。 Private Sub Command1_Click() Dim x As Integer,y As Integer x=12:y=32 Call Proc(x,y) Debug.Print x;y End Sub Public Sub Proc(n As Integer,ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub 打开窗体运行后,单击命令按钮,立即...
答案解析 查看更多优质解析 解答一 举报 那个下划线(也就是“横”)左边的是控件名(Command1),右边的是事件(Click),括号里包含的是参数(空白就表示没有参数).整个的意思就是:当你用鼠标点击名为Command1的按钮时,就执行这一行下面的多行代码,直到遇到End Sub结束 解析看不懂?免费查看同类题视频解析查看解答 ...