在H3</sub>PO4</sub>存在下的HCl溶液中,用0.1000mol/L K2</sub>Cr2</sub>O7</sub>溶液滴0.1000mol/LFe2+</sup>溶液,其化学计量点的电势为0.86V,则此滴定最适合的指示剂为()。
A.次甲基蓝(φ'=0.36V)
B.二苯胺碱酸钠(φ'=0.84V)
C.二苯胺(φ'=0.76V)
D.邻二氮菲-亚铁(φ'=1.06V)
A.次甲基蓝(φ'=0.36V)
B.二苯胺碱酸钠(φ'=0.84V)
C.二苯胺(φ'=0.76V)
D.邻二氮菲-亚铁(φ'=1.06V)
判断下述命题的真假,并举例说明。
(1)如果f'(z0)存在,那么f(z)在z0解析;
(2)如果f(z)在z0点连续,那么f'(z0)存在;
(3)实部与虚部满足C-R方程的复变函数是解析函数;
(4)若z0是f(z)的奇点,则f'(z0)不存在。
如果存在如下过程:
Private Function FMax(a() As Integer)
Dim First As Integer, Last As Integer, i As Integer
First=LBound(A)
Last=UBound(A)
Max=a(First)
For i=First To Last
If a(i) > Max Then Max=a(i)
Next i
FMax=Max
End Function
在窗体上添加一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
ReDim m(1 To 4) As Integer
m(1) =20: m(2) =30: m(3) =50: m(4) =100
c=FMax(m)
Print c
End Sub
单击命令按钮,其输出结果为 【12】 。
设习为正项级数,且存在正数N0,对一切n>N0,
有证明:若级数收敛,则级数也收敛;若发散,则习也发散.
●试题五
阅读以下应用说明及Visual Basic部分程序代码,将应填入(n)处的字句写在答题纸的对应栏内。
【说明】
在窗体上画一个名称为Combo1的组合框,画两个名称分别Label1、Label2及Caption属性分别为"城市名称"和空白的标签。程序运行后,当在组合框中输入一个新项后按回车键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Label2中给出提示"已成功添加输入项";如果存在,则在Label2中给出提示"输入项已在组合框中"。
【程序】
Private Sub Combo1_ (1) (KeyAscii As Integer)
If KeyAscii= (2) Then
For i=0 To (3)
If Combo1.Text= (4) Then
Label2.Caption="输入项已在组合框中"
Exit Sub
End If
Next i
Label2.Caption="已成功添加输入项"
Combo1. (5) Combo1.Text
End If
End Sub
阅读以下说明和Visual Basic代码,将应填入(n)处的字句写在对应栏内。
【说明】
在一些应用场合中,需要对用户的输入数据进行检查监控。以下VisualBasic程序实现了对新添加到 List列表的内容进行监控,拒绝向List列表添加重复信息。例如,在List列表中存在元素“a01001;a01002”,如果用户输入数据为“a01001”或“a01002”,系统则弹出提示信息,拒绝将新数据加入List列表;如果用户输入的数据不同于List列表中的任何一个元素,则作为新元素加入List中。VisualBasic界面显示如图所示。根据程序功能说明,完成程序代码。
【代码5-1】
Begin VB.Form. Forml
Caption = "List 列表拒绝添加重复信息"
//...窗体描述(略)
Begin VB.CommandButton Command2
Caption = "退出"
//...窗体描述(略)
End
Begin VB.CommandButton Commandl
Caption = "添加"
//...窗体描述(略)
End
Begin VB.TextBox Text1
//...窗体描述(略)
End
Begin VB.ListBox List1
Height = 1860
ItemData = "Form1.fix": 0000
Left = 1020
List = "Form1.fix": 0002
TabIndex = 0
Top = 525
Width = 2580
End
Begin VB.Labe1 Labe11
BackStyle = 0 'Transparent
Caption = "请输入编号"
//...窗体描述(略)
End
End
【代码5-2】
Attribute VB Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB Creatable = False
Attribute VB PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form. Load ()
List1.AddItem "a01001"
List1.AddItem "a01002"
End Sub
Private Sub Cormnand1 Click ()
Dim Myval As Long
For i=0 To (1)
(2)
If (3) Then
MsgBox "系统不允许重复输入,请重新输入"
Exit Sub
End If
(4)
(5)
End Sub
A.Private Sub List1_Click()
Label1.Caption = List1.ListIndex
End Sub
B.Private Sub List1_Click()
Label1.Name=List1.ListIndex
End Sub
C.Private Sub List1_Click()
Label1.Name=List1.Text
End Sub
D.Private Sub List1_Click()
Label1.Caption =List1.Text
End Sub
在窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labell),程序运行后,如果在文本框中输入指定的信息,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是______。
A. Private Sub Text1 Click() Labell.Caption=Text1.Text End Sub
B.Private Sub Text1_Change() Labell.Caption=Text1.Text End Sub
C.Private Sub Labell_Change() Labell.Caption=Text1.Text End Sub
D.Private Sub Labell_Click() Labell.Caption=Text1.Text End Sub
在窗体上画了两个按钮控件Command1和Command2,有如下程序: Private Sub Command1_Click() Print "Visual"; End Sub Private Sub Command2_Click() Print "Basic"; End Sub Private Sub Form_Load() CommandCancel=True Command1.Cancel=True End Sub 执行程序后,按键盘Cancel键,在窗体上输出的结果是
A.Basic
B.Visual
C.Cancel
D.True
A.Private Sub Form. Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer,Shift As Integer) Text1.Text=Chr(KeyCode-4) End Sub
B.Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer,Shift As Integer) Text1.Text=Text1.Text+Chr(KeyCode-4) End Sub
C.Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer,Shift As Integer) Text1.Text=Text1.Text+Chr(KeyCOde-4) End Sub
D.Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer,Shift As Integer) Text1.Text=Chr(KeyCode-4) End Sub
有如下SUB过程:
Sub s(x As Single,y As Single)
t=x
x=t / y
y=t Mod y
End Sub
在窗体上添加一个命令按钮,然后编写如下事件过程:
Private Sub Form_Click()
Dim a As Single
Dim b As Single
a=5
b=4
s a,b
Print a,b
End Sub
则程序运行后,单击命令按钮,输出的结果为【 】 。