题目内容

在窗体中有两个文本框分别为Text1和Text2，一个命令按钮Command1,编写如下两个事件过程： Private Sub Command1_Click( ) a = Text1.Value + Text2.Value MsgBox a End Sub Private Sub Form_Load( ) Text1.Value = “” Text2.Value = “” End Sub 程序运行时，在文本框Text1中输入78，在文本框中Text2输入87，单击命令按钮，消息框中输出的结果为（）。

查看答案

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

更多问题

Among the major products (import)（）by Malaysia were iron and steel, and medical instruments.

查看答案

某次大奖赛有7个评委同时为一位选手打分，去掉一个最高分和一个最低分，其余5个分数的平均值为该名参赛者的最后得分。请填空完成规定的功能。 Sub command1_click( ) Dim mark!, aver!, i%,max1!,min1! aver = 0 For i = 1 To 7 Mark = InputBox(“请输入第”& i & “位评为的打分”) If i = 1 then max1 =mark : min1=mark Else If mark < min1 then min1= mark ElseIf mark> max1 then 【1】 End If End If 【2】 Next i aver = (aver - max1- min1)/5 MsgBox aver End Sub 1（）

查看答案

Depression is regarded by many older people as （）

A. a character flaw
B. normal sadness and grief
C. a definite possibility
D. dependency and disability
E. a significant risk factor
F. unrecognized and untreated depression

查看答案

“学生成绩”表含有字段（学号，姓名，数学，外语，专业，总分）。下列程序的功能是：计算每名学生的总分（总分=数学+外语+专业）。请在程序空白处填入适当语句，使程序实现所需要的功能。 Private Sub Command1_Click( ) Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim zongfen As New ADODB.Fileld Dim shuxue As New ADODB. Fileld Dim waiyu As New ADODB. Fileld Dim zhuanye As New ADODB. Fileld Dim strSQL As Sting Set cn = CurrentProject.Connection StrSQL = “Select*from成绩表” rs.OpenstrSQL, cn, adOpenDynamic, adLockptimistic, adCmdText Set zongfen = rs.Filelds(“总分”) Set shuxue = rs.Filelds(“数学”) Set waiyu = rs.Filelds(“外语”) Set zhuanye = rs.Filelds(“专业”) Do while 【1】 Zongfen = shuxue + waiyu + zhuanye 【2】 rs.MoveNext Loop rs.close cn.close Set rs = Nothing Set cn = Nothing End Sub 1（）

查看答案