营养与食品卫生(医学高级)
长期缺乏维生素B1导致的疾病是（）A、脚气病B、癞皮病C、坏血病D、眼干燥症E、克山病
题目
长期缺乏维生素B1导致的疾病是（）
- A、脚气病
- B、癞皮病
- C、坏血病
- D、眼干燥症
- E、克山病
相似问题和答案
第1题：
（30）下列事件过程可以将打开文件对话框的标题改变为“new Caption”.A.Private Sub Commandl_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowFont End Sub B.Private Sub Commandl_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowOpen End Sub C.Private Sub Commandl_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowHelp End Sub D.Private Sub Commandl_Click(） CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowColor End Sub
【解析】可以通过DialogTitle属性设置打开文件对话框的标题，使用ShowOpen方法设置通用对话框的类型为打开文件对话框。
DialogTitle属性指定对话框中标题栏的名称。“打开”对话框默认的标题是“打开”；“另存为”对话框默认的标题是“另存为”。
第2题：
窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（ ）。
A.Private Sub Form1 Click（ ）
End Sub···
B.Private Sub Form1. Click（ ）
End Sub···
C.Private Sub Command1 click（ ）
End Sub···
D.Private Sub Command Click（ ）
End Sub···
B。【解析】窗体单击事件为Form—Click事件。
第3题：
有一过程如下:
Sub Sub1(m As Integer,total As Long)
Dim i As Integer
total=1
For i=1 To m
total=total*i
Next
End Sub
调用它的事件过程如下:
Private Sub Command1_Click()
Dim tot As Long,a As Integer
a=Val(InputBox("请输入数据"))
Call Sub1(a,tot)
Print tot
End Sub
则输入数据5,运行结果为【 】。
120 解析：考查考生对过程中参数传递方式的掌握情况。本题的难点是实参与形参的传递问题。total按ByRef参数传递。子过程的功能是计算n!,题中输入5,因此5!=120。参数按传值方式传递时,不改变实参中的值;按传地址的方式传递时,实参和形参指向的内容被改变。
第4题：
假定有如下的Sub过程:
Sub Sub1(x As Single, y As single)
t=x
x=t / y
y=t Mod y
End Sub
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a=5
b=4
Sub1 a,b
Print a;b
End Sub
程序运行后,单击命令按钮,输出结果为
A．54
B．] 1]]1
C．] 1.2]]5.4
D．] 1.25]]1
解析：Sub过程与Function过程最根本的区别是：Sub过程的过程参数名称不能有返回值，而Function过程能通过过程名称得到返回值。
第5题：
执行下面程序，第一行输出结果是【 】，第二行输出结果是47。
Option Explicit
Private Sub Form_Click( )
Dim A As Integer
A=2
Call Sub1 (A) End Sub
Private Sub1 (x As Integer)
x=x*2+1
If x＜10 Then
Call Sub1 (x)
End If
x=x*2+1
Print x
End Sub
23 解析：递归是一种十分有用的程序设计技术。递归过程是在过程定义中调用(或间接调用)本过程的过程。递归过程的关键部分就是要子过程函数 Sub1()被调用了多少次。当x=2时调用了第1次，当 x=5时调用了第2次，当x=11时不再调用，退出之前分别按x=23和x=47输出。注意：通用过程的调用和通用过程中的参数调用。
第6题：
如下图所示的两个窗体：
要使其中第一个窗体中的第一个命令按钮来控制显示第二个窗体，第二个命令按钮用来结束程序的运行(两个按钮名称为Command1和Command2)。则以下选项中，对这两个命令按钮编写的事件过程正确的是
A．Private Sub Command1 Click() Form2．Show 1 End Sub Private Sub Command2_Click()End End Sub
B．Private Sub Command1_Click() Show 1 End Sub Private Sub Conunand2_Click() End End Sub
C．Private Sub Conmmand1_Click() Show 1 End Sub Private Sub Command2_Click() End End Sub
D．Private Sub Command1_Click()Show 1， Form2 End SubPrivate Sub Command2_Click() End End Sub
解析：此题考查的多窗体的操作，用Show方法可以显示指定窗体。其格式为：【窗体名称．】Show【模式】如果省略窗体名称，表示是当前窗体，此题本意是利用窗体1中的命令按钮来控制显示窗体2，故应该使用Form2.Show语句；而“模式”参数为可选项，可取0、1两种值，模式为1时，表示窗体是“模式”窗体，即程序运行时只能对此窗体设置或操作，对其他窗口的操作不起作用；而模式为0时，即可同时操作多个窗口；综上所述只有选项A的事件过程正确；选项B没有指定Form2窗体，所以不正确；选项C与选项B的错误一样；选项D语句语法不对，对方法的引用，窗体应放在方法前面。
第7题：
有如下程序： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(x As Single，y As Single) t=X X=t\Y Y=t Mod y End Sub 在调用运行上述程序后，a和b的值分别为
A．0 0
B． 1 1
C．2 2
D．1 2
解析：考查考生对调用通用过程的掌握情况。
[解题要点] 调用一个过程时，必须把实际参数传送给过程，完成形式参数与实际参数的结合，然后用实际参数执行调用的过程。因为在默认的情况下，变量都是通过“引用”传送给sub1过程，在这种情况下，可以通过改变过程中相应的参数来改变变量的值。过程Sub1的形参获得a，b的地址，此时x=5，y=4，在过程Sub1中，将x，即5的值赋给t，而将t\y的值赋给x，将t除以y的余数赋给y，此时x,y的值为1,1。
[错解分析] 调用通用过程可以返回多个参数值。
[考点链接] 过程调用、参数传递。
第8题：
在通用声明中定义a，在窗体中添加一个命令按钮Command1，编写如下程序代码：
DimaAsInteger
Subtest()
a=a+1:b=b+1:c=c+1
Print"Sub:";a;"，";b;"，";c
EndSub
PrivateSubCommand1_Click()
a=2:b=3:c=4
Calltest
Calltest
EndSub
程序运行后，单击命令按钮，窗体中将显示( )
A.Sub：3，4，5Sub：4，5，6
B.Sub：2，3，4Sub：2，3，4
C.Sub：3，1，1Sub：4，1，1
D.Sub：1，1，1Sub：1，1，1
第9题：
假定有如下的Sub过程：
Sub Sub1(x As Single，y As single)
t=x
x=t/y
y=t Mod y
End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_click()
Dim a As Single
Dim b As Single
a=5
b=4
Sub1 a，b
Print a；b
End Sub
程序运行后，单击命令按钮，输出结果为
A．
B．
C．
D．
解析：在调用通用过程时要注意的是参数的传递方式。本题中两个变量都是以传值方式传递。根据传值方式的定义不难计算出本题结果。
第10题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Call sub1(-15.1,2.54) End Sub Public Function sub1(a As Integer,ByVa1 b As String) As Integer a＝Val(B)sub1=a Print sub1 End Function 程序运行后，单击命令按钮，在窗体上输出的是
A．3
B．2
C．-15
D．提示出错
解析：本题主要考查了功能函数的调用。特别要注意的是转换函数Va1的含义。 Va1表示的含义是将字符串转换为数值型，在本题中要求转换为整型值，在转换过程中应用到了四舍五人的规则，Va1(2.54)的结果值为3。故程序运行后单击命令按扭，在窗体上输出的数为3。选项A正确。