题目内容 (请给出正确答案)
[主观题]

已知数组a中存放的数据依次为7、6、5、1、8、5、3、9和4,设计程序,删除数组中值为x(例如为3)的元素。要求

要删除元素的值在程序运行时动态输入。 保存工程和窗体,窗体文件名为:昵称-5-3.frm;工程名为:昵称-5-3.vbp。将工程文件和窗体文件压缩成:昵称-5-3.rar,以附件形式提交。 提示: (1)数组a的值可以利用函数Array()输入。 (2)删除时,首先要查找待删除的元素,没有则返回。 (3)如果找到待删除的元素,则从下一个元素到最后元素依次往前移位。 (4)最后利用ReDim Preserve语句将数组大小减1。

提问人:网友piero123 发布时间:2022-01-07
参考答案
  抱歉!暂无答案,正在努力更新中……
如搜索结果不匹配,请 联系老师 获取答案
更多“已知数组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]的值是()。
A.1

B.2

C.5

D.8

点击查看答案
第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[*()
A.5

B.0

C.4

D.7

点击查看答案
第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): _________
点击查看答案
账号:
你好,尊敬的用户
复制账号
发送账号至手机
密码将被重置
获取验证码
发送
温馨提示
该问题答案仅针对搜题卡用户开放,请点击购买搜题卡。
马上购买搜题卡
我已购买搜题卡, 登录账号 继续查看答案
重置密码
确认修改
欢迎分享答案

为鼓励登录用户提交答案,简答题每个月将会抽取一批参与作答的用户给予奖励,具体奖励活动请关注官方微信公众号:简答题

简答题官方微信公众号

警告:系统检测到您的账号存在安全风险

为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!

微信搜一搜
简答题
点击打开微信
警告:系统检测到您的账号存在安全风险
抱歉,您的账号因涉嫌违反简答题购买须知被冻结。您可在“简答题”微信公众号中的“官网服务”-“账号解封申请”申请解封,或联系客服
微信搜一搜
简答题
点击打开微信