更多“已知数组a中存放的数据依次为7、6、5、1、8、5、3、9和…”相关的问题
第1题
已知数组定义: int[,]A={{9,8,7},{6,5,4},{3,2,1}}; ,则A[A.Rank,1]的值是()。
点击查看答案
第2题
已知“inta[][3]={{1,2,3},{4,5,6}};”,则二维数组a的行长为2。()
点击查看答案
第3题
已知有以下的说明, int a[]={8,1,2,5,0,4,7,6,3,9}; 那么a[*()
点击查看答案
第4题
在一个应用程序中定义了数组a:int[]a={1,2,3,4,5,6,7,8,9,10},为了打印输出数组a的最后一个数组元素,下面正确的代码是()。
A.System.out.println(a[10])
B.System.out.println(a[9])
C.System.out.println(a[8])
D.System.out.println(a[a.length])
点击查看答案
第5题
输入一段英文字符串,统计出每个英文字母出现的次数。要求英文字符串在程序运行中动态输入;统计中不区分英文字母的大小写。 保存工程和窗体,窗体文件名为:昵称-5-4.frm;工程名为:昵称-5-4.vbp。将工程文件和窗体文件压缩成:昵称-5-4.rar,以附件形式提交。 提示:英文字符串可以通过文本框控件或输入对话框InputBox函数输入。
点击查看答案
第6题
从键盘上输入两个正整数m 和n ,求最大公约数。 Private Sub Form_Click() Dim m As Integer, n As Integer,m1 As Integer, n1 As Integer Dim r As Integer m = Val(InputBox("请输入m的值")) m1=m n = Val(InputBox("请输入n的值")) n1 =______(1)______ r = m Mod n Do While______(2)______ m = n ______(3)______ r = m Mod n Loop Print m1; "和"; n1; "的最大公约数是:"; n End Sub 完善程序,在答题时,务必在答题框中写好题号和答案,如下: (1): _________ (2): _________ (3): _________
点击查看答案
第7题
输入一个正整数(n≥2),判断其是否为素数。 Private Sub Form_Click() Dim n As Integer, i As Integer Dim flag As Boolean 'flag是逻辑型变量 n = Val(InputBox("请输入一个正整数", "判断素数")) flag = True For i = 2 To Int(Sqr(n)) If ______(1)______Then 'n除以i的余数等于0 flag = False ______(2)______ '退出循环 End If Next i If ______(3)______ Then '如果flag=True,则说明正整数n是一个素数 Print n & "是一个素数!" Else Print n & "不是一个素数!" End If End Sub 完善程序,在答题时,务必在答题框中写好题号和答案,如下: (1): _________ (2): _________ (3): _________
点击查看答案
第8题
计算自然对数e的近似值。 e的近似公式: [图] Dim e!, i...
计算自然对数e的近似值。 e的近似公式:Dim e!, i%, s!, t! e = 1: i = 1: s = 1 Do s = ______(1)______ t = 1 / s e = ______(2)______ i =______(3)______ Loop While t > 0.0001 Print e 完善程序,在答题时,务必在答题框中写好题号和答案,如下: (1): _________ (2): _________ (3): _________
点击查看答案
第9题
求s=1+1×2+1×2×3+…+1×2×3×…×10,并将结果存到变量s中。 Private Sub Form_Click() Dim i, j As Integer Dim k As Long s =______(1)______ For i = 1 To 10 k = ______(2)______ For j = 1 To i k = k*j Next j s = ______(3)______ Next i Print “s=”;s End Sub 完善程序,在答题时,务必在答题框中写好题号和答案,如下: (1): _________ (2): _________ (3): _________
点击查看答案
第10题
以下程序用Array()函数建立了含有10个元素的数组,然后找出并输出了其中的最大值和最小值。 Option Base 1 Private Sub Form_Click() Dim a Dim max As Integer, min As Integer, i As Integer a = Array(13, 17, -11, 4, 8, 10, 20, -9, 15, 21) max = a(1) min =______(1)______ For i = 2 To 10 If a(i) > max Then ______(2)______ End If If a(i) < min Then ______(3)______ End If Next i Print max, min End Sub 完善程序,在答题时,务必在答题框中写好题号和答案,如下: (1): _________ (2): _________ (3): _________
点击查看答案