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

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

已知：氢在某金属M上的交换电流密度j0=10-2A•cm-2，其过电位为0.004V，那么该过电位主要是：（）。

  • A、电阻过电位
  • B、浓差过电位
  • C、电化学过电位
  • D、活化过电位

参考答案

更多 “已知：氢在某金属M上的交换电流密度j0=10-2A•cm-2，其过电位为0.004V，那么该过电位主要是：（）。A、电阻过电位B、浓差过电位C、电化学过电位D、活化过电位” 相关考题
考题 下面是用冒泡法将5个整数按升序排列，请将程序补充完整。Sub GASR（）Dim mm=Array（10, 1, 5, 6, 7）For i=0 To 3For j= 【13】If m（i） =m（j） Then【14】m（i） =m（j）m（j） =tEnd IfNext j【15】For i=0 To 4Print m（i）Next iEnd Sub
查看答案
考题 在窗体上画两个命令按钮，名称分别为Command1、Command2，并编写如下程序 Const n=5,m=4 Dim a(m,n) Private Sub Command1_Click() k=1 For i=1 To m Forj=1 To n a(i,j)=k k=k+1 Next j Next i End Sub Private Sub Command2_Click() summ=0 For i=1 Tom For j=1 To n If i=1 Or i=m Then summ=summ+a(i,j) Else If j=1 Or j=n Then summ=summ+a(i,j) End If End If Next j Next i Print summ End Sub 过程Command1 Click()的作用是在二锥数组a中存放—个m行n列的矩阵；过程Command2 Click()的作用是______。A．计算矩阵外围一圈元素的累加和B．计算矩外围一圈以外的所有元素的累加和C．计算矩阵第1列和最后—列元素的累加和D．计算矩阵第1行和最后—行元素的累加和
查看答案
考题 阅读程序：Private Sub Command1_Click()A=0For j=1 to 15a=a+j mod 3Next jPrint aEnd Sub程序运行后，单击窗体，输出结果是A ）105B)1C)120D)15
查看答案
考题 左乳房内上象限扪及3cm×3cm肿块，质地偏硬，边界不太清楚，与皮肤胸肌无粘连；左腋下可扪及肿大淋巴结3个，质韧，约蚕豆大小，活动良好，病理证实乳房腺癌淋巴结转移，按TNM分期应为：A.T 1 N1 M0B.T 1 N 2 M 0C.T 1 2 N 1 M\sub 0D.T 1 2 N 2 M\sub 0E.T 13 N 1 M\sub 0
查看答案
考题 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a=0For i=1 To 3For j=1 To 4If j Mod 2＜＞0 Thena=a+1End Ifa=a+1Next jNext iPrint aEnd Sub程序执行后，单击命令按钮，输出结果是【 】。
查看答案
考题 阅读程序：Private Sub Form. Click（ ）a=0For j=1 To 15a=a+j Mod 3Next jPrint aEnd Sub程序运行后，单击窗体，输出结果是（ ）。A.105B.1C.120D.15
查看答案
考题 若有如下程序： int sub(int m) { if(m==1||m==0) return 2; else return(sub(m-1)*sub(m-2));} main() { int n; scanf("%d",n); printf("%d",sub(n)); } 如果从键盘输入4＜回车＞，则程序运行后的输出结果是( )。A．8B．16C．24D．32
查看答案
考题 下面程序的输出结果是( )。 #include"stdio.h" int sub(int m) { static a=4; a+=m; return a; } void main() { int i=2,j=1,k; k=sub(i); k=sub(j); printf("%d",k); }A．6B．7C．8D．9
查看答案
考题 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim m As Integer, n As Integer, p As Integer m=3: n=5: p=0 Call Y(m, n, p) Print Str(p) End Sub Sub Y(ByVal i As Integer, ByVal j As Integer, k As Integer) k=i+j End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )A．4B．6C．8D．10
查看答案
考题 有如下程序： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(x As Single，y As Single) t=X X=t\Y Y=t Mod y End Sub 在调用运行上述程序后，a和b的值分别为A．0 0B． 1 1C．2 2D．1 2
查看答案
考题 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim in As Integer，n As Integer，p As Integer m=3:n=5:p=0 Call Y(m,n,p) Print Str(p) End Sub Sub Y(ByVal i As Integer，ByVal j As Integer，k As Integer) k=i+j End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是A．4B．6C．8D．10
查看答案
考题 阅读程序：Private Sub Form_ Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print aEnd Sub 程序运行后，单击窗体，输出结果是______。A．105B．1C．120D．15
查看答案
考题 阅读下列程序。Option Base 1Private Sub Form CliCk()Dim x(3,3)For j=1 to 3For k=1 to 3If j=k then x(j,k)=1If j＜＞ k then x(j,k)=3Next kNext jCall fun(x())End SubPrivate Sub fun(a())For j=1 to 3For k=1 to 3Print a (j,k)；Next kNext jEnd Sub运行程序时，输出的结果是【 】。
查看答案
考题 请阅读程序： Private Sub Form. Click（ ） m=1 For i=4To 1 Step-1 Print Str(m)；m=m+1 For j=1 To i Print"*"： Next j Print Next i End Sub 程序运行后，单击窗体，则输出结果是（ ）。A.1**** 2*** 3** 4*B.4**** 3*** 2** 1*C.**** *** ** *D.* ** *** ****
查看答案
考题 在窗体上画一个名称为CoilTlilandl的命令按钮，然后编写如下事件过程： Private Sub command1 Click() Dim m As Integer， i As Integer， x(3)As Integer For i=0 To 3：x(i)=i：Next i For i = 1 To 2： Call sub1(x，i)：Next i For i = 0 To 3： Print x(i)；： Next i End Sub Private Sub sub1(a()As Integer，k As Integer) Dim i As Integer Do a(k)=a(k)+a(k+1) j = j + 1 Loop While j ＜ 2 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．0 3 7 5B．0 1 2 3C．3 2 4 5D．0 5 8 3
查看答案
考题 Private Sub Commandl Click（）Dim i As Integer, j As IntegerDim a （10,10）As IntegerFor i=1 To 3For j= i To 3a（i,j）=（i-1）*3+jPrint a （i,j）;Next jPrintNext iEnd Sub程序运行后，单击命令按钮，窗体上显示的是（ ）。
查看答案
考题 在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为( )。 Private Sub fun() Static a As Integer a=a+2 Print a； End Sub Private Sub Command1_Click() Dim m As Integer For m=1 To 3 Call fun Next m End SubA．2 2 2B．0 0 0C．2 4 8D．2 4 6
查看答案
考题 在窗体上画一个命令按钮，然后编写如下事件过程。 Private Sub Command1_Click( ) Dim m As Integer, n As Integer, p As Integer m=3: n=5:p=0 Call Y(m, n, p) Print Str(p) End Sub Sub Y(ByVal i As Integer, ByVal j As Integer, k As Integer) k=i+j End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是A．4B．6C．8D．10
查看答案
考题 阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。[说明]下面的程序演示了根据随机产生的奖牌数，生成金银奖牌榜的过程。程序使用的排序法是简单排序法。以金牌得数为例，其思想是选择最大的元素，将它交换到最前面；然后对剩下的部分采用同样的方法，直到全部排序完成。程序界面中，左右两个文本框分别用于存放随机产生的奖牌数以及生成的奖牌榜，名为Text1和Text2，上下两个按钮分别名为Command1和Command2。代码中使用的量主要有：一维数组 cntries，用于存储10个国家的名称，二维数组medals，其元素medals(i,0)和medals(i,1)分别用于存放第i个(i从0开始)国家的金、银牌数目。[Visual Basic代码]Dim cntries(10) As String, medals(10,2) As Integer’随机产生奖牌数Sub newMedals()…… ’为数组cntries和medals赋值End Sub’输出奖牌榜Sub printOut(txt As (1) )Dim strResuh As String, i As IntegerstrResult=“国家” Chr(9) “金牌数” Chr(9) “银牌数” vbCrLfFor i=0 To 9strResult = strResult cntries(i) Chr(9) medals(i,0) Chr(9) medals(i,1) vbCrLfNexttxt.Text = strResultEnd Sub’交换两变量的值Sub exchange( (2) a As Variant, (2) b As Variant)Dim temp As Varianttemp = a: a = b: b = tempEnd Sub’随机产生并输出奖牌数Private Sub Command1_Click()newMedalsprintOut Text1End Sub’生成并输出奖牌榜Private Sub Command2_Click()Dim i,j, k As Integer, temp As StringFor i = 0 To 9 ’按金牌数排序j = i ’找到自第i个位置起全部数据中金牌得数最多者，记其下标为jFor k = i + 1 To 9If (3) Then j=kNextIf i ＜ ＞ j Then ’若i，j不等，则交换对应位置的国家名、金银牌数目exchange cntnes(i), entries(j)exchange medals(i, 0), medals(j, 0)exchange medals(i, 1), medals(j, 1)End IfNextFor i = 0 To 9 ’按银牌数进行二次排序j = iFor k = i + 1 To 9If medals(k,0) ＜＞ medals(j, 0) Then (4)If (5) Then j = kNextIf i ＜ ＞ j Thenexchange cntries(i), cntries(j)exchange medals(i, 1), medals(j, 1)End IfNextprintOut Text2End Sub
查看答案
考题 下列程序运行后的输出结果是______。Private Sub f(k,s) s = 1 for j = 1 To k s=s*j Next jEnd SubPrivate Sub Command1_ Click () Sum = 0 for i = 1 To 3 Call f(i, s) Sum = Sum + s Next i Print Sum End SubA．0B．3C．6D．9
查看答案
考题 窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Command1 Click（ ） Dim arr(5)As Integer ． For k=1 To 5 art(k)=k Next k prog art（ ） For k=1 T0 5 Print art(k)； Next k End Sub Sub prog(a（ ）As Integer) n=UBound(a) For i=n To 2 step-1 if a(j)a(j十1)Then t=a(j)：a(1)=a(j+1)；a(j+1)=t End If Next j Next i End Sub 程序运行时，单击命令按钮后显示的是（ ）。A.12345B.54321C.01234D.43210
查看答案
考题 在窗体上画2个命令按钮，名称分别为Command1、Command2，然后编写下列事件过程。 Const n=5．m=4 Dim a(m，n) Private Sub+Command1 Click（ ） k=1 For i=1 To m For j=1 To n a(i，j)=k k=k+1 Next j Next i End Sub Private Sub Command2 Click（ ） summ=0 For i=1 To m For j=1 To n If i=1 Or i=m Then summ=summ+a(i，j) Else If j=1 Or j=n Then summ=summ+a(i，j) End If End If Next j Next i Print summ End Sub 过程Command1_Click（ ）的作用是在二维数组a中存放1个m行n列的矩阵；过程Command2 Click（ ）的作用是（ ）。A.计算矩阵外围一圈元素的累加和B.计算矩阵除外围一圈以外的所有元素的累加和C.计算矩阵第1列和最后一列元素的累加和D.计算矩阵第1行和最后一行元素的累加和
查看答案
考题 下列程序运行后的输出结果是______。Private Sub f(k，s)s=1For j=1 To ks=s*jNextEnd SubPrivate Sub Command1_Click()Sum=0For i=1 To 3Call f(i，s)Sum=Sum+sNextPrint SumEnd Sub
查看答案
考题 已知：氢在某金属M上的交换电流密度i0=10-2A·cm-2，其过电位为0.004V，那么该过电位主要是：（）A、电阻过电位B、浓差过电位C、电化学过电位D、活化过电位
查看答案
考题 单选题正态分布时，算术平均数、中位数、众数的关系为（）A msub0/sub＜msube/sub＜(xB msub0/sub＝msube/sub＝(xC msub0/sub＞msube/sub＞(xD msube/sub＜msub0/sub＜(x
查看答案
考题 多选题下列表示中____的表示形式是正确的。ApUsub95/sub= 1%,vsubeff/sub =9 /pBpUsubr/sub= 1%,k=2 /pCpusubC/sub=0. 5% /pDpusubC/sub=±0 5%．k=1 /p
查看答案
考题 单选题已知某线声源长度为l0，在线声源垂直平分线上距线声源r0和r的分别为Lp(r0)和Lp(r)，根据《环境影响评价技术导则声环境》，按公式Lp(r)=Lp(r0)-15lg(r/r0)近似计算该线声源的噪声影响时，应满足的条件是()。A prIsub0/sub且rsub0/subIsub0/sub /pB prIsub0/sub/3且rsub0/subIsub0/sub/3 /pC pIsub0/sub/3rspanI/spansub0/sub且Isub0/sub/3rsub0/subr0Isub0/sub /r0/pD p无条件限制 /p
查看答案
热门标签
最新试卷