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

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

不含有杂原子N、O、S等的有机物的S1激发态跃迁是（）

  • A、π→π1*
  • B、n→π1*
  • C、π→σ1*
  • D、n→σ1*

参考答案

更多 “不含有杂原子N、O、S等的有机物的S1激发态跃迁是（）A、π→π1*B、n→π1*C、π→σ1*D、n→σ1*” 相关考题
考题 1+ + + +…….n 最大的n。请填空Private Sub Command1__Click（）Dim s ,m,n AS Integerm=Val（InputBox（“请输入一个大于100的整数”））n=_______s=0Do While s N=n+1S=s+n*nLoopPrint “满足不等式的最大n是_______End Sub
查看答案
考题 布窗体上画一个名称为Command l的命令按钮，然后编写如下事件过程：Private Sub Command l-Click ()n=5f=ls=oFor I =l To nf=f【 】s= s +fNextPrint sEnd Sub该事件过程的功能是计算s=1+1／2!+l+3!+…+l/ n!的值。请填空。
查看答案
考题 执行下面的程序，输出的结果是 ______ 。 Private Sub Command1_Click() ch $ = "Welcome to China!" n = Len(ch $ ) For i =1 To n-1 s$ =Mid(ch$ ,i,1) If s$ ="o" Then m=m + 1 Next i Print m End SubA．1B．2C．8D．0
查看答案
考题 （ 6 ） 下面程序的功能是从键盘输入 1 大于 100 的整数 m ，计算并输出满足不等式1+22+32 +42 + …… .+n2m的最大的 n 。请填空Private Sub Command1__Click （）Dim s ,m,n AS Integerm=Val （ InputBox （ “ 请输入一个大于 100 的整数 ” ））n=_________s=0Do While smn=n+1s=s+n*nLoopPrint “ 满足不等式的最大 n 是_____End Sub
查看答案
考题 设有如下程序：Private Sub Form_Click（）Dim n As Integer, s As Integern = 8s = 0Dos = s + nn = n - 1Loop While n 0Print sEnd Sub以上程序的功能是______。程序运行后，单击窗体，输出结果为______。
查看答案
考题 下列程序用来计算1+2+…n,当和大于100时停止计算,请填空。Private Sub Form_Click()Dim n as integer,s as integer,I as integer,k as integers=0k=0n=inputbox(″请输入n的值)For i=1 to 100k=k+1s=s+I【 】Next iPrint sEnd Sub
查看答案
考题 下列过程说明合法的是( ) A、Sub S1(ByVal n!())B、Sub S1(n!) as IntegerC、 Function S1%(S1%)D、 Function S1(ByVal n!)
查看答案
考题 下列程序的功能是求算式：1+1／2!+1／3!+1／4!+……前10项的和(其中n!的含义是n的阶乘)。请在空白处填入适当的语句，使程序完成指定的功能。Private Sub Commandl_Click ( )Dim i as integer,s as single，a as singlea=1：s=0For i=1 To 10a=_____s=s+aNext iDebug．Print“1+1／2!+1／3!+……=”；SEnd Sub
查看答案
考题 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Privfite Sub Command1_Click()n=5f=1s=0For i=1 To nf=f 【 】s=s+fNextPtint SEnd Sub该事件过程的功能是计算s=1+2!+1/3!+...+1/n!的值。请填空。
查看答案
考题 设有如下程序： Private Sub Form. Click（ ） Dim s As Long，f As Long Dim n As Integer，i As Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next i Print s End Sub 程序运行后，单击窗体，输出结果是（ ）。A.32B.33C.34D.35
查看答案
考题 以下程序用于求S=1+3+32+33+…+310的值。Private Sub Commandl_Click()S=1T=1ForI=1 To 10T=______S=S+TNextIPrint"S="；SEnd Sub
查看答案
考题 设有如下程序：Private Sub Form_Cliok()Dima As Integer,S As Integern=8s=0Dos=s+nn=n-1Loop While n＞0Print sEnd Sub以上程序的功能是 [7] ；程序运行后，单击窗体，输出结果为 [8] 。
查看答案
考题 在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MSgBox x End Sub Private Sub s1() x=x＋20 End Sub Private Sub s2() Dim x As Integer x=X＋20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为______。A．10B．30C．40D．50
查看答案
考题 下面程序的功能是从键盘输入—个大于100的整数m，计算并输出满足不等式1+22+32+42+…+n2＜m的最大的n。请填空。Private Sub Command1_Click()Dim s,m,n As Integerm=Val(InputBox("请输入一个大于100的整数"))n=【 】s=0Do While s＜mn=n+1s=s+n*nLoopPrint "满足不等式的最大n是";【 】End Sub
查看答案
考题 有如下程序 Private Sub Command1_Chck( ) s=0 DO s=(s+1) *(s+2) N=N+1 Loop Until s＞=10 Prim N；s End Sub 运行后的输出结果是A．0 1B．30 30C．4 30D．2 12
查看答案
考题 编写如下事件过程： Private sub sub1 (ByVal x1 As String, y1 As String) Dim xt As String Dim i As Integer i = Len(x1) Do While i＞= 1 xt = xt + Mid(x1, i, 1) i=i-1 Loop y1 = xt End Sub Private Sub Form. Click() Dim s1 As String, s2 As String s1= "teacher" sub1 s1, s2 Print s2 End Sub 程序运行后，单击窗体，则窗体上显示的内容是A．rehcaetB．tahreeeC．themeeD．eerthea
查看答案
考题 写出程序运行的结果Public class BasePublic virtual string Hello() {return “Base”;}Public class Sub:BasePublic override string Hello() {return “Sub”;}1. Base b = new Base(); b.Hello;2. Sub s = new Sub(); s.Hello;3. Base b = new Sub (); b.Hello;4. Sub s = new Base(); s.Hello;
查看答案
考题 下面程序的输出结果是。 Private Sub Commandl_Click ch$=“ABCDEF” proc ch：Print ch End Sub Private Sub proc(ch As Stnng) s=“” For k=Len(ch) TO 1 Step -1 s=sMid(ch，k，1) Next k ch=s End Sub A．ABCDEF B．FEDCBA C．A D．F
查看答案
考题 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Privme Sub Command1_Click( )n=5f=1s=0For i=1 To nf=f【 】s=s+fNextPrint sEnd Sub该事件过程的功能是计算的值。请填空。
查看答案
考题 编写如下事件过程： Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)=i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n()As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)=n(i-1)*2 Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是A．6B．12C．24D．47
查看答案
考题 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Dim a() a＝Array(1，3，5，7) s=O For i＝1 TO 3 S=S*10十a(i) Next i PrInt S End Sub 程序运行后，输出结果为( )。A．135B．357C．531D．753
查看答案
考题 下列程序运行后的输出结果是______。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
查看答案
考题 设字符串S1= “ABCDEF”，S2= “PQRS”，则运算S=CONCAT（SUB（S1，2，LEN（S2）），SUB（S1，LEN（S2），2））后的串值为（）。
查看答案
考题 s=”this is the mainstring”，sub=”string”，strindex（s，sub）是（）
查看答案
考题 单选题不含有杂原子N、O、S等的有机物的S1激发态跃迁是（）A π→π1*B n→π1*C π→σ1*D n→σ1*
查看答案
考题 填空题s=”this is the mainstring”，sub=”string”，strindex（s，sub）是（）
查看答案
考题 填空题设字符串S1= “ABCDEF”，S2= “PQRS”，则运算S=CONCAT（SUB（S1，2，LEN（S2）），SUB（S1，LEN（S2），2））后的串值为（）。
查看答案
热门标签
最新试卷