题目内容

在窗体上画1个命令按钮(名称为Command1)和1个文本框(名称为Text1)，然后编写如下事件过程： Private Sub Command1_Click() x=Val (Text1.Text) Select Case x Case 1, 3 y=x*x Case Is＞=10,Is＜=-10 y=x Case -10 TO 10 y=-x End Select End Sub 程序运行后，在文本框中输入3，然后单击命令按钮，则y的值变为______。

查看答案

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

更多问题

女性，8岁，农民，3个月来咳嗽、咯少量白痰，伴乏力、低热、食欲下降，体重减轻6kg，月经不规律。体检发现左颈部可及2个黄豆大小淋巴结。胸片发现右上肺淡片状阴影。（以下6题共用题干）若痰涂片找抗酸杆菌阳性，应首先给予下列哪种措施最适宜（）。

A. 纤维支气管镜检查
B. 胸部CT检查
C. 立即隔离并给予利福平＋乙胺丁醇＋雷米封
D. 请妇产科医生会诊
E. 静脉点滴大剂量广谱抗生素

男，30岁。餐后突发右上腹及剑突下痛放射到右肩及后背部，二小时后疼痛剧烈，伴恶心，并吐出所进食物，仍不缓解，急诊就医数年“胃病”史及胆石症历史，间有胆绞痛发作。查体：痛苦病容，体温37。2℃，呼吸28次/分，浅快，律齐。全腹胀，上腹肌紧张，压痛及反跳痛(+)。移动性浊音(±)，白细胞12乘以10的9次方／L，血红蛋白125g／L，尿淀粉酶400U(温氏法正常值32u)。排除该项诊断的最主要根据是

A. 患者有持续腹痛
B. 尿淀粉酶轻度升高
C. 上腹部存在肌紧张及反跳痛
D. 患者体温轻度高
E. 患者有腹胀

( )我方有权取消由于买方不予履行而延期的合同。

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim arr(1 T0 100)As Integer For i=1 To 100 arr(i)=Int(Rnd*) Next i Max=arr(1) Min=arr(1) For i=1 To 100 If Then Max=arr(i) End If If __Then Min=arr(i) End If Next i MsgBox Max MsgBox Min End Sub 程序运行后，单击命令按钮，将产生100个1000以内的随机整数，放入数组arr中，然后查找并先后使用消息框输出这100个数中的最大值Max和最小值Min，请将程序补充完整。