未分类题如下程序段定义了学生成绩的记录类型,由学号、姓名和三门课程成绩(百分制)组成。 TYPE STUD NO AS INTEGER NAME AS ATRING SCORE(1 TO 3) AS SINGLE END TYPE 若对某个学生的各个数据项进行赋值,下列程序段中下确的是A.DIM S AS STUD STUD.NO=1001 STUD.NAME='舒宜' STUD.SCORE=78,88,96B.DIM S AS STUD S. NO=1001 S. NAME='舒宜' S. SCORE=78,88,96C.DIM S AS STUD STUD.NO=1001 STUD.NAME='舒宜' STUD.SCORE(1)=78 STUD.SCORE(2)=88 STUD.SCORE(3)=96D.DIM S AS STUD S. NO: 1001 S. NAME='舒宜' S. SCORE(1)=78 S. SCORE(2)=88 S. SCORE(3)=96
未分类题在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: Private Sub Command1_Cliek() Dim a(10, 10) For m = 2 To 4 For n = 4 To 5 a(m, n) = m*n Next n Next m MsgBox a(2, 5)+a(3, 4)+a(4,5) End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果是( )。D.52
未分类题在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() x = 0 n=InputBox(' ') For i = 1 To n For j=1 To i x = x + 1 Next i Next i Print x End Sub 程序运行后,单击命令按钮,如果输入3,则在窗体上显示的内容是D.6
单项选择题企业本期发生的下列支出中,不能直接或间接归入营业成本,而是直接计入当期损益的费用是( )。 A.车间管理人员工资 B.业务招待费 C.生产车间水电费 D.在建工程人员工资
未分类题编写了如下事件过程: Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) If(Button And 3)=3 Then Print 'AAAA' End If End Sub 程序运行后,为了在窗体上输出'AAAA',应按下的鼠标键是D.按鼠标键没有反应
未分类题在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框,然后编写如下事件过程: Private Sub Command1_Click() n = Text1.Text Select Case n Case 1 To 20 x = 10 Case 2, 4, 6 x = 20 Case Is < 10 x = 30 Case 10 x = 40 End Select Text2.Text = x End Sub 程序运行后,如果在文本框Text1中输入10,然后单击命令按钮,则在Text2中显示的内容是A.10B.20C.30D.40
未分类题设有如下程序: Option Base 0 Private Sub Form Click() Dim a Dim i As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i); Next End Sub 程序运行后,单击窗体,则在窗体上显示的是A.4 3 21B.543 2C.6 54 3D.7 6 54
单项选择题Fe3C有可能分解成铁和石墨稳定相,但该过程在室温下是非常缓慢的。 A、正确 B、错误
未分类题设有如下通用过程: Public Sub Fun(a(), ByVal x As Integer) For i=1 To 5 x = x + a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下的事件过程: Private Sub Commandl Click() Dim arr(5) As Variant For i=1 To 5 arr(i) =i Next n = 10 Call Fun(arr(), n) Text1.Text=n End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是A.10B.15C.25D.24
未分类题在窗体上画一个名称为Commandl的命令按钮,然后编写如下代码: Option Base 1 Prirate Sub Command1 Click() d = 0 c = 10 x=Array(10, 12, 21, 32,24) For i=1 To 5 If x(i) > c Then d = d + x(i) c = x(i) Else d = d - c End If Next i Print d End Sub 程序运行后,如果单击命令按钮,则在窗体上输出的内容为D.77