VB中无option case语句，但有Option Base语句默认数组下界值是0.
Option Base 语句
在模块级别中使用，用来声明数组下标的缺省下界。
说明
由于下界的缺省设置是 0，因此无需使用 Option Base 语句。如果使用该语句，则必须写在模块的所有过程之前。一个模块中只能出现一次 Option
Base，且必须位于带维数的数组声明之前。
注意
Dim、Private、Public、ReDim 以及 Static 语句中的 To
子句提供了一种更灵活的方式来控制数组的下标。不过，如果没有使用 To 子句显式地指定下界，则可以使用 Option Base
将缺省下界设为 1。使用 Array 函数或 ParamArray 关键字创建的数组的下界为 0；Option
Base 对 Array 或 ParamArray 不起作用。
Option Base 语句只影响位于包含该语句的模块中的数组下界。
Option Base 语句示例
该示例使用 Option Base 语句来取代数组下标的缺省值 0。LBound
函数返回数组的指定维数的最小可用下标。Option Base 语句只能在模块级使用。
Option base 1 '将缺省的数组下标设为 1。
Dim Lower
Dim MyArray(20), TwoDArray(3, 4) '声明数组变量。
Dim ZeroArray(0 To 5) '取代缺省的下标。
'使用 LBound 函数来测试数组的下界。
Lower = LBound(MyArray) '返回 1。
Lower = LBound(TwoDArray, 2) '返回 1。
Lower = LBound(ZeroArray) '返回 0。
根据你的描述,怀孕的机率不大.
指导意见：
一般月经推迟7到10天都是正常的,经前是会有乳房胀疼的症状.可以在15号左右用试孕纸检测,这样较为可靠.
生活护理：
注意采取必要的避孕措施,人流不是可取的
你好
根据你的描述主要考虑泌尿系感染和乳腺问题引起的月经推迟.
一般同房后7天血HCG就可以提示是否怀孕.
尿频主要考虑性生活不卫生引起的泌尿系感染,乳房痛主要考虑急性炎症发作或者乳腺增生.
月经周期受很多因素影响,如情绪,环境,药物,创伤等,一般提前或推后一周属于正常.
现在可以做B超和尿HCG检查,但是应该针对尿频和乳房疼痛进行治疗.m
可以花三块钱到大药房买两份早孕试纸测一下.如果是阴性就没有怀孕.从检测是的HCG看也不象是怀孕
病情分析：
根据你的描述考虑人流过后引起月经推迟.
指导意见：
建议继续观察看看,停经35天选择试纸检测尿HCG看看是否怀孕,建议停经40天选择B超查找孕囊确诊,如果没有怀孕的话考虑有可能是闭经引起月经失调,建议积极就诊检查尝试乌鸡白凤丸调经试试看效果应该不错.
生活护理：
积极锻炼,饮食清淡,避免辛辣,刺激食物,注意个人清洁卫生.
不是，我知道啥时候要用这个。默认值是限制什么吗？
追答这个是限定数组的默认下限的下标：
例如：声明数组如下：
dim d ( 1 To 10) as integer
VB6可以省略下限的下标为：
dim d (10) as integer
这样缺省了下限的下标，那么下限的下标就使用默认值0或者1。
option case 0
option case 1
如果不使用 option case语句就相当于是 使用了option case 0
这样，当使用
dim d (10) as integer
就等于
dim d (0 To 10) as integer
你再用鼠标左键点它一下，再按键盘Ctrl+C；
再点窗口内的空白处一下，选中窗体。
按键盘Ctrl+V，这时会弹出来一个消息框，点“是”。
这时粘贴出来的控件在窗体左上角，把它拖到适当的位置去。
同刚才一样的操作，再粘贴两个出来。
这就有一个“4个控件的”Option1控件数组了。本回答被提问者和网友采纳