题目内容

在窗体上画一个命令按钮，命名为CommandI。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程 F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是

A. Privme Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
B. Private Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function
C. Private Sub Command1_Click() x=InputBox(“请输入整数”) F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End Function
D. Private Sub Command1_Click() x=InputBox(“请输入整数”) F1 (Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function

查看答案

搜索结果不匹配？点我反馈

更多问题

设在工程中有一个标准模块，其中定义了如下记录类型： Type Books Name As String 10 TelNum As String 20 End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是

A. Private Sub Command1_Click() Dim B As Books Open "c：\Person.txt" For Output As #1BName=InputBox(“输入姓名”)BTelNum=InputBox(“输入电话号码”) Write #1,BName,BTelNum Close #1 End Sub
B. Private Sub Command1_Click() Dim B As Books Open "c:\Person.txt" For Input As #1B@Name=InputBox(“输入姓名”)BTelNum=InputBox(“输入电话号码”) Print #1，BName，BTelNum Close #1 End Sub
C. Private Sub Command1_Click() Dim B As Books ppen "c：\Person.txt" For Output AS #1BName=InputBox(“输入姓名”)BTelNum=InputBox(“输入电话号码”) Write #1，B Close#1 End Sub
D. Privte Sub Command1_Click() Open "c：\Person.txt" For Input As #1 Name=InputBox(“输入姓名”) TelNum=InputBox(“输入电话号码”) Print#1，Name，TelNum Close #1 End Sub

查看答案

在窗体(名称为Form1)上绘制一个名称为Text1的文本框和一个名称为Commandl的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是

A. Private Sub Tex1_Change() Command1.Caption=“计算机等级考试” EndSub
B. Private Sub Command1_Click() Caption="计算机等级考试”
C. Private Sub Command1_Click() Text.Caption=“计算机等级考试” End Sub
D. Private Sub Command1_Click() Textl．Text=-"计算机等级考试” End Sub

查看答案

在窗体上绘制一个名称为List1的列表框，一个名称为Labe11的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是

A. PriVate Sub List1_Click() Labell.CaptiOn=List.ListIndex End Sub
B. PriVate Sub List1_Click() Labell.Name=listl.ListIndex End Sub
C. Private Sub List1_Click() Labell.Name=Listl.Text End Sub
D. Private Sub List1_Click() Labell.Caption=List1.Text End Sub

查看答案

规范职务序列，就是指从警察职业的性质、特点和工作任务出发，将公安队伍的组成人员分为()类进行管理。

A. 2
B. 3
C. 4
D. 5

查看答案