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

搜题

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

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

[主观题]

设有如下程序：PrivateSubForm_Click（） DimnAsInteger,sAsInteger n=8 s=0 Do s=s+n

设有如下程序：

Private Sub Form_Click（）

Dim n As Integer, s As Integer

n = 8

s = 0

s = s + n

n = n - 1

Loop While n ＞ 0

Print s

End Sub

以上程序的功能是______。程序运行后，单击窗体，输出结果为______。

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

查看官方参考答案

更多“设有如下程序：PrivateSubForm_Click（） DimnAsInteger,sAsInteger n=8 s=0 Do s=s+n”相关的问题

第1题

设有如下程序代码： Private Function Fib(ByVal n As Integer) As Integer If n <= 2 then fib="1" else - 1) + fib(n 2) end if function private sub command1_click() dim m as integer form1.print fib(m) 程序时单击命令按钮，在窗体上输出的结果为（> A、21

B、8

C、1

D、5

点击查看答案

第2题

设有如下程序： public class Test5 { public static void main (String args []) { /* This is the start of a comment if (true) { Test5 = new test5(); System.out.println("Done the test"); } /* This is another comment */ System.out.println ("The end"); } } 结果为?

A、输出 "Done the test".

B、程序输出"The end"

C、程序编译错误.

D、程序输出"Done the test"和 "The end"

点击查看答案

第3题

12. import java.util.*; 13. public class Explorer2 { 14. public static void main(String[] args) { 15. TreeSet <integer> s = new TreeSet <integer> (); 16. TreeSet <integer> subs = new TreeSet <integer> (); 17. for(int i = 606; i < 613; i++) 18. if(i%2 == 0) s.add(i); 19. subs = (TreeSet)s.subSet(608, true, 611, true); 20. s.add(629); 21. System.out.println(s + " " + subs); 22. } 23. } 程序运行结果是？

A、编译出错

B、运行时抛出异常

C、[608, 610, 612, 629] [608, 610]

D、[608, 610, 612, 629] [608, 610, 629]

E、[606, 608, 610, 612, 629] [608, 610]

F、[606, 608, 610, 612, 629] [608, 610, 629]

点击查看答案

第4题

有如下程序:

Private Sub Form_Click()

Dim i As Integer, Sum As Integer

Sum=0

For i=2 To 10

If i Mod 2=0 And i Mod 3$amp; Sum=Sum+i

End If

Print Sum

End Sub

程序运行后,单击窗体,输出结果为

A．12

B．30

C．24

D．18

点击查看答案

第5题

阅读下面的程序， class BaseClass { private static int CallCounter; static BaseClass() { CallCounter=2; Console.WriteLine("m={0}"， CallCounter); } public BaseClass() { CallCounter++; Console.WriteLine("n={0}"， CallCounter); } static void Main(string[] args) { BaseClass b1 = new BaseClass(); BaseClass b2 = new BaseClass(); BaseClass b3 = new BaseClass(); } } 程序运行的结果是什么？

点击查看答案

第6题

设有如下程序 Option Base 1 Dim a As Variant Private Sub Cmd1_Click() Dim n As Integer a = Array(12, 9, 13, 5, 8, 16, 7, 3, 18, 3) Call geta(n) Print n End Sub Private Sub geta(j As Integer) Dim n As Integer, c() As Integer n = UBound(a) j = 0 For i = 1 To n If a(i) / 2 = a(i) \ 2 Then j = j + 1 ReDim Preserve c(j) c(j) = a(i) End If Next End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是。

A、3

B、4

C、5

D、6

点击查看答案

第7题

设有如下程序，其调试结果为： class Q2 { public static void main(String[] args) { int[] seeds = {1,2,3,4,6,8}; int n= seeds.length; for (int i = 0; i < 3; i++) for (int k = 0; k< n-1; k++) seeds[k]= seeds[k+1]; for (int i = 0; i <n; i++) system.out.print("\t"+seeds[i]); }> A、输出： 1 2 3 4 6 8

B、输出： 4 6 8 8 8 8

C、输出： 2 3 4 6 8 8

D、输出： 2 3 4 6 6 8

点击查看答案

第8题

设有下列结构定义语句： struct score{ int Chinese; int math; }scores[2]={{80,85},{89,93}},*p=scores; 则++p->math的值为 ,++(p->math)的值为

点击查看答案

第9题

设a = \"MicrosoftVisualBasic\" ，则以下使变量b的值为“VisualBasic”的语句是（）。

A．b = Left（a, 10）

B．b = Mid（a, 10）

C．b = Right（a, 10）

D．b = Mid（a, 11, 10）

点击查看答案

第10题

假定有如下的窗体事件过程：

Private Sub Form_Click（）

a$ = "Microsoft Visual Basic"

b$ = Right（a$, 5）

c$ = Mid（a$, 1, 9）

MsgBox a$, 34, b$, c$, 5

End Sub

程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是（）。

A．Microsoft Visual

B．Microsoft

C．Basic

D．5

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

北京2024年10月自考报名时间及考试时间 2024年自考大专下半年报名截止时间是哪天 2024下半年网上自考报名流程及费用是多少 2024自考本科报名和考试时间分别是什么时候成人自考护理专业需要什么条件才能报名成人自考本科需要哪些条件流程是怎样的自考专升本科怎么报名在哪考试正规 2024年10月自考需要满足什么条件与要求 2024年南大自考本科含金量高吗考哪些内容 50岁拿到自考学历还有用吗有没有含金量

购买搜题卡查看答案

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

请选择支付方式

微信支付

支付宝支付

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

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

搜题卡使用说明

1. 搜题次数扣减规则：

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