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

[单选题]

By the end of next month I ______ here for five years.A. will workB. have been workingC.

A.A. will work

B.B. have been working

C.C. have worked

D.D. will have worked

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

参考答案

查看官方参考答案

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

网友答案

查看全部（）

· 有6位网友选择 A，占比30%
· 有5位网友选择 B，占比25%
· 有3位网友选择 A，占比15%
· 有3位网友选择 D，占比15%
· 有2位网友选择 D，占比10%
· 有1位网友选择 C，占比5%

ABCD

提交我的答案

登录提交答案，可赢取奖励机会。

登录/注册

您可能会需要：

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

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

更多“By the end of next month I ___…”相关的问题

第1题

The next shareholder's meeting was（)at the end of this year.A. scheduledB. usedC. m

The next shareholder's meeting was()at the end of this year.

A. scheduled

B. used

C. made

点击查看答案

第2题

执行下面程序后，A（1，3）的值是（），A（2，2）的值是（），A（3，1）的值是（）。Option ExplicitOption Bas

执行下面程序后，A（1，3）的值是（），A（2，2）的值是（），A（3，1）的值是（）。

Option Explicit

Option Base 0

Private Sub Form_Click()

Dim A(3,3)As Integer,I As Integer

Dim kAs Integer,m As Integer

m=16

For k=6 To 0 Step -1

Ifk ＞=2 Then

For I=0 To 5-k

A(k-2+I,I)=m

m=m-1

Next I

Else

For I=0 To k

A(k-I,3-I)=m

m=m-1

Next I

End If

Next k

For k=0 To 3

For I=0 To 3

PrintA(k,I);

Next I

Print

Next k

End Sub

点击查看答案

第3题

有如下程序。

Dim a(5,5),m as Integer,n as Integer

For m=2 To 4

For n=4 To 5

If m$amp; a(m,n)=m*n

ElSe

a(m,n)=m+n

End If

Next n

Next m

MsgBox a(2,3)+a(3,4)+a(4,5)

运行后的输出结果是()。

A．22 B．32 C．42 D．52

点击查看答案

第4题

单击命令按钮后，下列程序代码的执行结果是______。Public Sub fun （a As Integer, b As Integer,c

单击命令按钮后，下列程序代码的执行结果是______。

Public Sub fun (a As Integer, b As Integer, c As Integer)

Do

a=b+ c

n=n+1

Loop While n ＞ 3

End Sub

Private Sub command1_ click()

Dim m As Integer, n As Integer, i As Integer

For i = 0 To 2: m = n + 1: Next i

For i = 1 To 2: Call fun (m, n, i): Next i

For i = 0 To 3

Print m;

Next i

End Sub

点击查看答案

第5题

下列程序的运行结果为（）。 Private Sub Command1_Click（) Dim a（5, 5) As Integer For i = 1 To 3 For j = 1 To 4 a（i, j) = i * j Next j Next i For n = 1 To 2 For m = 1 To 3 Print a（m, n); " "; Next m Next n End Sub

A.2 4 6 1 2 3

B.1 2 3 2 4 6

C.1 2 3 4 5 6

D.6 5 4 3 2 1

点击查看答案

第6题

（35 ）下面程序运行时，若输入 “ Visual Basic Programming ” ，则在窗体上输出的是

Private Sub Comand1_Click （）

Dim count （25 ） As Integer, ch As String

ch=U c ase （InputBox （" 请输入字母字符串 " ））

For k=1 To Len （ch ）

n=Asc （Mid （ch,k,1 ）） -Asc （" A " ）

If n＞=0 Then

Count （n ） =Count （n ） + 1

End If

Next k

m=count （0 ）

For k=1 To 25

If m

m=count （k ）

End If

Next k

Print m

End Sub

A ） 0

B ） 1

C ） 2

D ） 3

点击查看答案

第7题

下面的程序输出100-300之间的素数，阅读程序并填空。 Function sushu（Byval x As Integer) As Bool

下面的程序输出100-300之间的素数，阅读程序并填空。 Function sushu(Byval x As Integer) As Boolean Dim i As Integer sushu = False For i = 2 To sqr(x) If x Mod i = 0 Then exit for Next i If i ＞= sqr(x) Then _____________ End Function Private Sub Command1_Click() Dim m As Integer For m = 100 To 300 If sushu(m) Then Print m; Next m End Sub

A、print i

B、sushu=True

C、sushu=False

D、print m

点击查看答案

第8题

下面是用冒泡法将5个整数按升序排列，请将程序补充完整。 SubGASR（） Dimm m=Array（10,1,5

下面是用冒泡法将5个整数按升序排列，请将程序补充完整。

Sub GASR（）

Dim m

m=Array（10, 1, 5, 6, 7）

For i=0 To 3